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R E F“ A Z I O N E 


Tradurrs- questo libro e' stato per me un piacevole lavoro, 
infatti ho potuto appressare molto due delle sue principali 
caratteristiche, e cioè', la chiaressa espositiva e lo 
sforzo tostante di esporre i diversi argomenti con assoluta 
obiettivita 7 . 

Leggendo il libro si avverte ad ogni pagina la consolidata 
esperienza informatica e didattica degli autori, che ci 
viene confermata dalle brevi note sulle loro attività’ in 
seconda di copertina. 

Il libro, come viene del resto ribadito nell'introduzione, 
e’ rivolto a tutti coloro che già' sanno qualcosa di 
informatica. Indubbiamente prime di leggerlo con profitto e’ 
necessario possedere almeno i concetti generali che sono 
alla base dell’informatica. Pero’, a mio avviso, il libro 
può' essere molto utile anche per le persone che, con poca 
esperienza di altri linguaggi, desiderano affrontare il 
Pascal. Queste non potranno apprezzare in pieno i frequenti 
riferimenti egli altri lingueggi simbolici, di cui il libro 
e' ricco, ma potranno apprendere il Pascal, grazie anche ai 
numerosi esercizi con soluzione finale. 

Quest'ultimo aspetto del libro e’ veramente notevole; ogni 
argomento e’ seguito de numerosi esempi e de opportuni 
esercizi adatti a controllare lo stato dell'apprendimento 
prime di proseguire. 

Fili tengo che questo libro andrebbe usato nelle scuole medie 
superiori e nelle università’, come libro di testo per 
apprendere il Pascal servendosi di un Personal. 

Un grazie quindi agli autori per la loro opera. 

Rita Bone!lì 
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INTRODOTTO 


N E 


Il linguaggio di programmaz i one Pascal suscita un 
interesse' sempre crescente. 

Si tratta di un entusiasmo passeggero, o, invece, del 
segno premonitore di una prospera carriera? 

Per prima cosa, he esso le qualità' necessarie per 
imporsi? 

A credere ai suoi entusiasti sostenitori, il Pascei reca 
vantaggi tali, che alla domanda precedente non si può' che 
rispondere affermativamente. Il Pescai sarebbe la panacea 
per risolvere tutti i problemi della progranmazione. 

Per quanto ci riguarda, noi pensiamo che non esistono 
panacee in informatica. Lo scopo di questo libro e' di fare 
il punto sui pregi ed i difetti del linguaggio Pascal. 

Per i lettori che possiedono già' un Personal e che sanno 
già' programmare in Basic questo libro dovrebbe servire per 
fornire risposta alle seguenti domande: 

. Quali sono i vantaggi del Pascal rispetto al Basic? 

. Questi vantaggi giustificano l'acquisto di un 
interprete o di un compilatore Pascei? 

Per i lettori che non possiedono ancora un Personal e 
stanno decidendone l’acquisto, le questione e’ ancora piu’ 
cruciale : 

. Il Pascei e’ assolutamente necessario per le 
applicazioni che io desidero realizzare? 

. Devo per forza scegliere un calcolatore che disponga 
del Pascal? 

Naturalmente, solo l’esame e la discussione approfondite 
delle vostre applicazioni possono determinare la vostra 
decisione. E questo e’ quello che succede per qualunque 
decisione nel campo dell’informatica. 

Lo scopo di questo libro e’ quello di essere 
sufficientemente obiettivo in modo da mettervi in grado di 
prendere decisioni razionali e non passionali. 

I vantaggi del Pascal <e sono numerosi) saranno descritti 
nel contesto delle applicazioni dove sono utilizzati. Per 
contro, verranno anche indicate le situazioni dove questi 
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non sono indispensabili. 

Non si comi ncera ’ 3 discutere del Pascal senza descr i vere 
la dottrina da cui il linguaggio ha avuto origine: la 
Programmazione Strutturata. Questo e’ l’argomento del 
Capitolo 1. 

Dal momento che non si può’ giudicare un linguaggio senza 
averne una buona conoscenza, la parte centrale dell'opera e' 
dedicata allo studio del Pascal. 

Dopo una panoramica generale del linguaggio e delle sue 
principali caratteristiche (Capitolo 2), passeremo in 
rassegna le istruzioni sequenziali (calcolo e 
ingresso/uscite nel Capitolo 3), le istruzioni per 
strutturare i programmi (controlli, cicli, interruzione di 
sequenze nel Capitolo 4), i problemi dei blocchi e delle 
procedure (Capitolo 6). 

Il Pascal e’ particolermente ricco riguardo ai tipi di 
dati che può' trattare; questo e’ l’argomento dei Capitoli 
5, 7 e 8. 

In conclusione 1’originalita’ del Pascal viene messa in 
luce confrontandolo con gli altri linguaggi concorrenti. 

Oltre alle solite Appendici ( lista delle parole-chiave, 
soluzione degli esercizi, bibliografia), l'appendice A vi 
mostra come , in un certo modo, e’ possibile fere della 
programmazione strutturata in Basic. 


Si suppone che il lettore conosce le nozioni fondamentali 
della programmazione per mezzo della pratica di un 
linguaggio di programmazione evoluto tipo Basic, Fortran o 
PL/1. 



CAPITOLO 1 


L_ A PROGRAMMAZIONE STRUTTURATA 


1.1. SCOPO DELLA PROGRAMMAZIONE STRUTTURATA 


Pur senza arrivare a dire che un progredirne e’ une cose 
"vive", si constate che ogni progredirne ha una storia ed una 
evoluzione. 

Un progredirne deve essere "eiesso e punto" dopo le prime 
stesura; esso infatti non funziona mai, nelle diaggi or parte 
dei cesi, elle priate prove e sono quesi sempre necessarie 
delle modifiche nel corso delle prove successive. 

Inoltre possono diventare necessarie successive modifiche 
per adattare il programma a nuove situazioni. Questo lavoro 
prende il nome di "manutenzione" del programma. 

Per poter eseguire la manutenzione e la messa a punto di 
un programma e’ necessario conoscerlo perfattamente. 

E’ necessario conoscere perfattamente le funzioni di ogni 
modulo, 1’uti1izzazione di ogni variabile, le interazioni di 
tutti gli elementi; in caso contrario una modifica operata 
in un punto fare’ nascere errori in altri punti del 
progr aroma. 

L’esperienza mostra che conoscere bene un programma di une 
certa complessità' e' un compito molto difficile. Tale 
compito diventa ancora piu’ difficile in fase di 
manutenzione se la persona incaricata non e' l'autore del 
programma. 


L'esperienza he del peri mostrato che e' molto difficile 
rileggere programmi scritti da altri, e che a volte e' 
difficile rileggere i propri programmi anche poco tempo dopo 
averii scritti. 

Questo dipende dal fatto che in programmazione "si deve 
pensare a tutto!". Si devono cioè' aver presenti con 
precisione tutti gli elementi. Per esempio, per poter 
analizzare i riferimenti a una variabile, si deve conoscere 
il ruolo della variabile stessa, dove esse viene 

inizializzata, dove essa viene modificata, ecc.Questo 

costringe ad uno sforzo a volte penoso. 

Lo scopo della programmazione strutturata e' quello di 
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rendere 1 questo sforzo un po' Meno penoso 


In effetti esse e' stata proposte in un momento nel quele 
la complessità' dei programmi era divenuta tale da rendere 
F*raticamente impossibile la manutenzione degli stessi. 

Partendo dal fondamentale principio di produrre programmi 
piu' facili de comprendere <e quindi piu’ facili da mettere 
a punto e da manutenere), gli scopi ed i mezzi della 
pirogrammezione strutturata si possono porre a tre livelli: 

. 1) Migliorare la leggibilità' del programma per mezzo 
delle impaginazione e dell’autodocumentazione (presenza di 
commenti). 

Si deve notare che alcuni credono che le programmazione 
strutturata si riduca a questo soltanto. In effetti, 
numerosi ed adeguati commenti sono molto importanti per 
rendere un programma comprensibile, ma questo non e' 
facilmente ottenibile 1 dei programmatori. Nondimeno la 
programmazione strutturata non e' solo questo. 

. 2) Scomporre il programma in moduli di dimensioni 
ragionevoli. 

Qualunque cosa si faccia, a partire de una certa 
complessità' nessun programma può' essere comprensibile. 
Questo e’ semplicemente dovuto alla limitazione del potere 
di comprensione umana (quando i calcolatori scriveranno essi 


stess 

i i loro 

programm i f non c i 

saranno piu’ tal 

i problemi - 

o può' darsi 

che 

ne nasceranno 

di piu'?>. 


Da 

questo 

e' 

nata 1 ' idee 

di decomporre 

le funzioni 
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un 

programma in 
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semplici e ben definite. Ciascune di queste funzioni verrà’ 
realizzata da un modulo la cui comprensione risulterà' piu' 
facile. 

. 3) Porre delle regole precise per la struttura del 
programma. 

Per esaminare un programma e’ necessario seguirne lo 
svolgimento passo a passo. Per esempio, le rotture di 
sequenza rendono penosa la lettura del programma con salti 
tra pagine diverse. La piu' pericolosa e' l’istruzione di 
salto incondizionato GOTO. 

L’istruzione GOTO non e’ indispensabi1 e e questo può’ 
essere dimostrato. E' possibile scrivere dei programmi 
servendosi solamente di tre strutture fondamentali: la 
sequenza, la diramazione e l’iterazione. 

La direttiva principale della programmazione strutturata 
e' quella di programmare usando solo queste tre strutture 
fondamente!i. 
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Può’ inoltre essere evidenziato un quarto scopo della 
programmazione strutturata. Esso si e’ già' intravisto al 
punto 2) sopra esposto. Nelle sue forme piu' elaborate, la 
progremmazione strutturata tende ad essere un metodo di 
analisi e di progettazione dei programmi; ed e’ vero che la 
struttura di un programma nasce al momento del primo 
abbozzo. 

Noi non insisteremo comunque su questo aspetto, dato che 
esso e' un punto di discordia tra gli specialisti; diversi 
metodi di anelisi strutturata, derivati dalla programmazione 
strutturata, si affrontano in modo, e dobbiamo dirlo, 
abbastanza sterile. Per parte nostra ci atterremo 
all'aspetto "programmazione". 


1.2. REGOLE DELLA PROGRAMMAZIONE STRUTTURATA 


Un programma strutturato deve obbedire alle tre regole che 
seguono. 


REGOLA 1 

Il programma deve essere scomposto in piccoli moduli 
<sottoprogramm i ) ben definiti ed individualizzat i e la 
lunghezza di ogni modulo non deve, se possibile, superare 
una pagina. 

In conseguenza il programma principale appare come una 
sequenza di chiamate a sottoprogrammi, aventi ciascuno un 
ruolo ben determinato: 


chiamata modulo 1 
chiamata modulo 2 


Esso e’ quindi facilmente leggibile e comprensibile. 

Le interazioni tra i diversi moduli (scambi di dati) sono 
semplificete al massimo e, in ogni caso, perfettamente 
definite. 

Ciascun modulo ha un solo punto di entrata ed un solo 
punto di uscita (cioè' il RETURN). 


REGOLA 2 

Ciascun programma e' costruito servendosi esclusivamente 
delle tre strutture fondamentali: sequenza, diramazione. 





iterazione. 


Segue il dettaglio delle tre strutture fondamentali. 


LA SEQUENZA 



che può’ rappresentarsi 
anche cosi' 



Sequenze di operezioni che si susseguono senza alcuna 
condizione. Si ha un solo punto di entrata ed un solo punto 
di uscita. Per evitare eventuali ambiguità', le sequenza 

può' essere compresa tra le parole: inizio.fine, 

adoperate come se fossero delle parentesi. 


LA DIRAMAZIONE 



Essa ha le forme: 

se la condizione e' vera fare- 
questo, se non e' vere fare 
quest'altro. 


Ciascuno dei due blocchi "questo" 
essere abbastanza corto. Se il blocco 
esso va sostituito con le chiamata ad 
cosa importante e' che i due rami 
ricongiungano nello stesso punto <B) 


e "quest’altro" deve 
non può' essere corto 
un sottoprogramma. Le 
della diramazione si 
vicino al punto di 
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partenza <A). I due rami sono allora sempre sotto gli occhi 
durante la lettura del programma. 


In alcuni casi uno dei due 
blocchi "questo" o 
"quest’altro" può' essere 
vuoto; questo corrisponde allo 
schema riportato a fianco. In 
parole; se la condizione e' 
vera fare "questo”, altrimenti 
andare direttamente al punto di 
ricongiunzione <B) per 
contuinuare la sequenza. Anche 
in questo caso il punto <B) di 
ricongiunzione deve essere 
vicino all’analisi delle 
condizione; quello che e' 
proibito e’ di fare un salto ad 
un punto non visibile guardando 
il punto di partenza. 


ESERCIZIO 1.1. - Tracciare, in due modi, il diagramma del 
calcolo: Y = valore assoluto di X. 


L' ITERAZIONE 
Essa può’ avere due forme: 

. a) fino a quando le condizione si mantiene vere fere 
"questo"; 

. b) ripetere "questo" fino ella condizione di arresto. 

Le due forme risultano quasi, ma non del tutto, 
equivalenti se le condizioni analizzate sono tra loro 
contrarie. Esse corrispondono ai due schemi a) e b) che 
seguor^p. 
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Per essere precisi, si vede che dopo la definizione in 
pirogrammaz i one strutturata, nella forma a) l’analisi della 
condizione <test> deve essere all'inizio, mentre nella forma 
fci) essa deve essere ella fine. Arrivando al punto di entrata 
della struttura con la condizione che determina l'arresto 
già' realizzata, si vede che nella forma b) si ha una 
iterazione inopportuna. 


ESERCIZIO 1.2. - Scrivere nel linguaggio usato precedente- 
mente un programma'che legga un file sequenziale e ne stampi 
il contenuto. 


ESERCIZIO 1.3. - Tradurre in "linguaggio strutturato" il 
programma : 


Basic: 10 FOR I = 1 T0 10 
20 PRINT I 
30 NEXT I 


Fortran: DO 30 I = 1,10 

URITE (6,10) I 
30 CONTINUE 


In programmazione strutturata e' consentito di uscire da 
un ciclo solo per mezzo dell’analisi della condizione (punto 
(S) nello schema sotto riportato). Tra le operazioni 
fondamentali del ciclo (quelle che devono essere ripetute) 
possono essere contenuti anche dei tests, ma essi devono 
essere nella forma " se, allora, se no", e non possono far 
uscire dal ciclo. 



S 















Il tratteggio presente nella figura a) circonda un modulo 
avente un solo punto di entrata ed un solo punto di uscita 
sempre sotto controllo. 

Nella figura t>) invece, quando si e' nel punto (S) non si 
sa se si proviene dal test di uscita o da un altra parte; 
questo può' causare incomprensione del programma e possibili 
error i . 


ESERCIZIO 1.4. - Il programma 
Fortran, cerca se esiste un "A‘ 
o C* e fornisce il rango K del 

10 DIM C$ < 50) 

20 FOR K= 1 T0 50 

30 IF Ct<K) = 'A' GOTO 50 

40 NEXT K 

50 . 


che segue, in Basic o in 
nella tabella di caratteri C 
primo "A" trovato. 

INTEGER A C(50> 

DATA A/'A' 

DO 40 K=1,50 

IF <C(K) .EQ. A) GOTO 50 
40 CONTINUE 
50 . 


Tracciare il diagramma corrispendente e dire perche' non 
e' strutturato. Tracciare un diagramma strutturato che sia 
il piu' possibile simile al precedente. Dire perche' non e' 
pienamente soddisfacente. Tracciare infine un diagramma 
strutturato corretto. 


Le strutture viste escludono l'istruzione GOTO. Infatti e' 
proprio questa l'istruzione che nuoce di piu' alla 
comprensione dei programmi. Se l'istruzione GOTO e' 
permessa, quando si esamina una parte di programma, non si 
sa mai precisamente da dove si proviene e quindi in quale 
stato si trovano le variabili. In conseguenza e' difficile 
fare una verifica del programma. E’ proprio l’aver bandito 
l'istruzione GOTO che impedisce ai diagrammi di essere quei 
grovigli che erano arrivati ad essere. 


REGOLA 3 

Ogni programma deve essere opportunamente commentato ed 
impaginato in modo da facilitarne la leggibilità’. 


In particolare ogni procedura deve iniziare con dei 
commenti che spieghino il suo ruolo e descrivano con 
precisione le variabili scambiate con il programma 
principale. 

Analogamente devono essere spiegate tutte le articolezioni 
del programma. Per prima cosa le "astuzie", ma e' chiaro che 
nello spirito delle programmazione strutturata le astuzie 
devono essere evitate. 


? 





Durante la stesura del programma, si cercherà’ di metterne 
in evidenza la struttura usando dei margini convenienti} per 
esempio, tutte le istruzioni che fanno parte della stessa 
sequenza devono essere allineate. 

Durante una scelta , l' "allora" e il "se no" 
corrispondenti devono essere allineati, analogamente il 
"fare" e il "fin tanto che", oppure, il "ripetere" e il 
"fino a quando". 

ESEMPIO: 

REM *************************************************** 
REM * CALCOLO SOMMA 50 ELEMENTI TABELLA A * 

REM *************************************************** 

S <- 0 } REM INIZIALIZZAZIONE 

I <- 1 } REM PUNTA PRIMO ELEMENTO 

RIPETERE 

S <-S + Ad) 

I <-I + 1 

FINO A QUANDO I > 0 
REM * ORA SI HA LA SOMMA **** 


ESERCIZIO 1.5. - Stendere un programma strutturato per 
mettere in ordine alfabetico una tabella di 50 nomi. 
Utilizzare il metodo dell’ ordinamento " a bolle". Esso 
consiste in una successione di passi in ciascuno dei quali 
vengono esaminati successivanente gli elementi consecutivi a 
coppie. Se una coppia e' già' in ordine si procede senza 
fare alcunché', se non lo e' si scambiano tre loro gli 
elementi. Si inizia un nuovo passo solo se nel precedente si 
e’ operato almeno uno scambio in una coppia di elementi. 


1.3. LIMITI DELLA PROGRAMMAZIONE STRUTTURATA 


Si può’ fare della programmazione strutturate usando i 
linguaggi classici piu' comuni? Si. 

Il lettore che conosce il Basic o il Fortran avre’ subito 
visto che la diramazione può’ realizzarsi mediante un IF 
opportuno, e l’iterazione mediante un FOR o un DO. Per 
quanto riguarda il Basic, la questione viene esaurientemente 
trattata nell’Appendice A. Si he una sole piccola 
difficolta' a livello di "si, allora, se no"} tale 
situazione deve essere simulata con i Basic che non 
dispongono della istruzione IF..THEN..ELSE. 

In effetti, i piu’ comuni lingueggi di programmszione ed 
alto livello hanno piu' possibilità' di quelle che sono 
necessarie per fare delle programmazione strutturata. In 


10 



particolare, assi permettono di realizzare una struttura che 
non fa parte in senso stretto della programmazione 
strutturata, ma che alcuni autori vi aggiungono: la CASE. 

Questa struttura ha la forme: 


CASE T TRA 

Tl: SEQUENZA 1 ; 

T2: SEQUENZA 2 ; 


TN: SEQUENZA N -, 

Quando T = Ti viene eseguita le sequenza i. Questo non e’ 
altro che una generaiizzazione del GOTO calcolato del 
Fortran o del ON del Basic. 



In effetti, e questa e’ la vera difficolta’, i linguaggi 
classici di programmazione consentono soprattutto di fare 
della programmazione non strutturata, e quindi illegibile. 
Essi sovente permettono di servirsi di artifici e trucchi 
che diventano incomprensibili S giorni dopo, me che fanno 
risparmiare 2 istruzioni! Si può' sempre sistemare un GOTO 
che fa risparmiare 1 microsecondo durante l’esecuzione (ma 
perdere 1!5 giorni durante la messa a punto!). 


Confrontandola con i linguaggi classici, la programmazione 
strutturata arriva a privarsi volontariamente di alcune 
risorse dei linguaggi. Molti programmatori rifiutano questo, 
infatti essi si sentono frustrati se non utilizzano tutte le 
possibilità’ dei linguaggi. Essi pensano di perdere in 
efficienza. Questo e' vero talvolta per quanto concerne i 
tempi di esecuzione, ma le differenze sono trascuratii1i, se 
si considera il risparmio di tempo durante la messa a punto 
e la manut€*nz i one. 


Altro motivo di frustrazione per i programmatori e’ il 
problema dei commenti. E' vero che spesso non si ha il 
coraggio di scriverli (ne’ d'altra parte di tenere 
documentazione della programmazione....). 


E' proprio per le ragioni 
auspicabile poter disporre 
programmazione che: 


precedenti che sarebbe 
di un linguaggio di 


.1) - Realizzi facilmente ed 
"simulazione") le strutture 
programmazione strutturata. 


esattamente 
fondamentali 


< senza 
della 


.2) -■ Non possa realizzare altre strutture, in modo che i 
programmatori non si sentano frustrati dal fatto di poter 
utilizzare solo un sottoinsieme del linguaggio. 
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Questo e' precisamente lo scopo del linguaggio PASCAL, che 
e', per eccellenza, il linguaggio della programmazione 
strutturata. 

Coloro che lo hanno concepito (il gruppo di Niklaus Wirth 
alla Scuola Politecnica Federale di Zurigo) lo hanno voluto 
cosi'. Il Pascal ha anche altri vantaggi, ma, in primo 
luogo, esso consente di fare della programmazione 
strutturata senza forzature, ne' restrizioni, ne’ 
frustrazioni. 

Esso quindi presenta un grande interesse per 
l'insegnamento, come primo linguaggio da studiare, perche' 
evita agli studenti di contrarre cattive abitudini nel 
programmare, cosa che capita con gli altri linguaggi, i 
quali favoriscono la ricerca dei trucchi. 

La programmazione strutturata e' possibile anche con altri 
linguaggi, ma bisogna sapersi disciplinare, cosa che e’ 
forse la piu' difficile. 

PASCAL conduce "naturalmente" ad una programmazione 
chi ara. 
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CAPITOLO 2 


SGUARDO D " INSIEME: SUL. L. XNGUAOGIO 

RASO AL. 


2.1. PREMESSA 


Prime di studiere in dettaglio le istruzioni del Fescel, 
feremo une penoremice del lingueggio che ci permettere' di 
metterne in luce le strutture. 

E' inutile ripetere che tutti i lingueggi di 
progremmezione ed elto livello henno gli stessi tipi di 
istruzioni, ma vale la pena di ricordare che alcune 
categorie di istruzioni sono piu' sviluppate in qualche 
linguaggio rispetto ad altri. Noi ci sforzeremo di mettere 
in luce i "punti di forza" del Pascei. 


2.2. COMANDI E DICHIARAZIONI 


Si deve fere une prime distinzione tre istruzioni 
eseguibili o ORDINI e istruzioni non eseguibili o 
DICHIARAZIONI. 

Queste distinzione e’ ben note si lettori che henno 
familiarità' con il Fortran <o il PL/1 o il Cobol), ma essa 
e-' meno nette in Sesie ; per queste regione dobbiamo 
chiarirne il significato. 

A priori, tutte le istruzioni dovrebbero essere 
eseguibili, cioè' esse dovrebbero produrre una effettiva 
azione da parte del calcolatore, per esempio: leggere un 
numero dalla tastiera, eseguire un calcolo, ecc..... 

In linguaggio macchine esistono solo istruzioni 
eseguibili. Nei linguaggi simbolici ad alto e basso livello 
si he un c omp>ortsmento diverso dovuto el processo di 
traduzione in linguaggio macchina del programma scritto in 
lingueggio evoluto. Si avranno, da une perte delle 
istruzioni tradotte in linguaggio macchina per effettuare 
delle operazioni effettive - esse sono le istruzioni 
eseguibili -, e d'altra parte delle istruzioni non tradotte 
in lingueggio macchine il cui scopo e’ quello di eiutere il 
programma traduttore ad effettuare una buona traduzione. 

Il miglior esempio di quest’ultimo tipo di istruzioni e’ 
quello delle istruzioni per riservare spazio in memoria per 
una tabella (DIM in Basic, DIMENSION in Fortran)} une tele 
istruzione non opera, me influisce sul modo nel quale 


13 




vengono tradotte altre istruzioni. Una variabile viene 
trattata in modo diverso in dipendenza dal fatto di essere 
stata o meno preventivanente dimensionata. 

Si può' anche dire che le istruzioni eseguibili sono 
quelle che agiscono sui dati, mentre quelle dichiarative 
sono quelle che descrivono i dati che devono essere 
trattati. 

A seconda dei lingueggi si ha un maggior o minore 
equilibrio tra i due tipi di istruzioni: in Cobol si hanno 
molte piu' istruzioni dichiarative che istruzioni 
eseguibili. Il Cobol e' un linguaggio per la gestione di 
grandi quantità' di dati sui quali si devono effettuare 
poche operazioni. 

In Fortran invece si hanno piu’ istruzioni eseguibili che 
istruzioni dichiarative e questo e' ancora piu' evidente in 
Basic. Anzi, in questo linguaggio, solo le istruzioni DATA e 
DIN possono essere considerate di tipo dichiarativo e in 
fondo non del tutto. 

E’ anche vero che, de questo punto di vista, le nature del 
traduttore (interprete o compilatore) gioca il suo ruolo, 
qualunque sia il linguaggio in questione. Con un interprete, 
ciascuna istruzione viene considerata isolatamente, tradotta 
ed eseguita. E’ normale che in questo ambiente sia meno 
sentita la necessita' di molte diehiarazioni. Con un 
compilatore, invece, prima viene tradotto tutto il 
programma, poi esso sara' eseguito in blocco; le 
dichiarazioni aiutano a preparare la traduzione. 


In Pascal si ha un buon gruppo di istruzioni non 
eseguibili. In effetti, come vedremo, il Pescai e’ molto 
ricco per quanto riguarda i tipi di dati che esso può' 
trattare; di conseguenza e’ molto importante una accurata 
descrizione dei dati stessi. 

Questo inoltre e’ anche importante dato che il traduttore 
utilizzato e' di tipo compilativo. 

Cominciamo ed analizzare le istruzioni eseguibili. 


2.3. ISTRUZIONI ESEGUIBILI 


l.e istruzioni eseguibili si dividono in due categorie: 
. le istruzioni senza condizioni o sequenziali; 

. le istruzioni di strutturazione del programma. 


Le istruzioni senza condizioni formano 
istruzioni che effettuano le* operezion 
programma. Quando si arriva ad una 
condizioni esse viene eseguita, quando le 


la sequenza di 
i richieste nel 
istruzione senza 
sue esecuzione e’ 



terminata, si passa alla istruzione successiva. 

Le istruzioni di strutturazione del programma, invece, non 
effettuano delle operazioni, ma determinano l'ordine secondo 
il quale devono essere eseguite le altre sequenze di 
istruzioni; questo genera la struttura del programma. 

In Pascal , come negli altri linguaggi, le istruzioni 
senza condizioni sono di due tipi; 

. le ISTRUZIONI DI CALCOLO (istruzione di assegnazione 
aritmetica della forma variabile : = espressione aritmetica, 
dove si legge "prende il valore"); 

. le ISTRUZIONI DI INGRESSO-USCITA, o di manipolazione 
dei file; GET, PUT, RESET, REWRITE, READ, READLN, WRITE, 
WRITELN. 

Come vedremo, queste ultime istruzioni sono delle 
procedure standard del Pascal, e non delle istruzioni 
propriamente dette, come le loro corrispondenti per esempio 
in Fortran. 

A queste istruzioni sequenziali si possono aggiungere le 
istruzioni di DELIMITAZIONE DI SEQUENZA; BEGIN e END. Queste 
istruzioni servono e definire una istruzione composte come 
una sequenza di piu' istruzioni semplici. Questo evita ogni 
tipo di ambiguità' in una istruzione di strutturazione tipo 
UH ILE. 


Le istruzioni di strutturazione sono soprattutto quelle 
che consentono di suddividere un programma in moduli piu' 
piccoli. Questa e’ una raccomandazione essenziale nella 
programmazione strutturata. 

Secondo le tradizione, questo si ottiene servendosi di tre 
tipi di istruzioni: 


istruzione che mette 
l 


s i 


.1 ) Una 
modulo. 

In F'escal 

servono per attribuire un nome 
anche l’istruzione PROGRAM che in 
Pascal e' obbligatoria all'inizio 
(Queste tre istruzioni possono 
d i ehiarazioni). 


i n 


evidenza l’inizio del 


istruzione PROCEDURE o FUNCTION. Ambedue 
al modulo. Si può' aggiungere 
certe implementazioni del 
del programma principale, 
essere considerate delle 


.2) Una istruzione per ritornare al programma chiamante. 
In Pascal questo ruolo spetta all'istruzione END. (Si 
tratta del RETURN del Fortran o del Basic). 


.3) Una istruzione di chiamata al sottoprogramma. 

Per un modulo di tipo FUNCTION, le chiamate viene fetta in 
Pascal, come in Basic o in Fortran, riferendo il nome della 
funzione eli’interno di una espressione aritmetica. Per un 
modulo di tipo PROCEDURE non esiste una CALL; la chiamata 
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viene fatta semplicemente citando il nome della procedura. 

Subito dopo vengono le istruzioni che REALIZZANO LE 
STRUTTURE FONDAMENTALI DELLA PROGRAMMAZIONE STRUTTURATA: 

IF...THEN...ELSE 
UHILE...00.. . 

REPEAT...UNTIL... 

ed a queste si aggiungono tre istruzioni supplementari, 
superflue perche' non strutturate, ma che possono essere 
utili. Esse sono: 

F0R...D0... che realizza dei cicli controllati da un indice 
che si incrementa, 

CASE...0F... che realizza la struttura CASE, 

GOTO... salto incondizionato. Questa e' l'istruzione piu' 
paradossale in Pascal, dal momento che le progremmazione 
strutturata e' nata proprio per sopprimere i GOTO! In 
effetti si può' non usarle ed e' quello che noi faremo in 
tutti gli esercizi di questo libro. 


2.4. DICHIARAZIONI 


Lo scopo di queste istruzioni e’ quello di descrivere i 
dati che vengono manipolati dalle istruzioni eseguibili. 
Tutti i dati sono riferiti nel programma per mezzo di un 
nome simbolico o identificatore. In Pascal, tutti gli 
identificatori utilizzati in una istruzione eseguibile 
devono prima essere stati dichiarati e descritti al 
compilatore Pascal, in una dichiarazione posta all'inizio 
del modulo, a meno che non si tratti di identificatori 
standard che si suppone siano già' noti al compilatore, come 
TRUE, INTEGER o SIN, per esempio. 

Gli elementi utilizzati piu’ frequentemente sono le 
variabili. Ma in Pascal anche altri elementi possono 
ricevere un nome simbolico; la potenze del linguaggio sta 
proprio nella sua capacita’ di simbolizzazione. 

Esistono delle regole riguardo all’ordine di citazione 
degli elementi suscettibili di essere dichiarati; esse 
seguono. 


. 1) DICHIARAZIONE DI ETICHETTE 

Una etichetta e' un numero scritto all’inizio di una linea 
e seguito dai due punti (:) che lo separano dalle parte 
restante della linea stessa. Esempio: 
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10: A:=B+C 


.Le etichette devono essere di chi srete per mezzo 

dell'istruzione LABEL. Esempio: 

LABEL 10, 20, 30; 

A cose servono le etichette? A locslizzsre l'istruzione 
per un GOTO come GOTO 10. In conseguenze, noi non perleremo 
piu’ di etichette, del momento che non utilizzeremo 
l'istruzione GOTO. 

. 2) DICHIARAZIONE DI COSTANTI 

Le costenti possono essere usete come in Fortrsn o in 
Besic. Esempio di uso delle costente 10 in une istruzione: 

A : =X + 10 

Si dice che le costente e’ stete usete in forme letterele 
( l itersi). 

In Resesi si può’ utilizzere une forme simholice delle 
costanti, questo permette di dare loro un nome piu' 
signifiestivo e di evere un progremms piu’ leggibile. Allora 
si deve usare une diehisrezione come: 

C0NST PI = 3.14; LINEEPAG = 60; 

e scrivere: IF NUP1LINEE < LINEEPAG 

sere’ piu’ chi ero di: 1F NUNLINEE < 60. 

NOTA: E' possibile fere qualcosa di simile in Fortran o in 
Besic. Baste usare une veri sbile. Queste viene chiemeta 
"parametro". Questo e' utile se un parametro può' cambiare, 
come nell’esempio riporteto il "numero di linee per pagine"; 
infatti basta cambiare una sola istruzione, quella dove il 
parametro riceve il suo valore. 

. 3) DICHIARAZIONE DI TIPO 

In Resesi si henno un certo numero di tipi di deti 
standard; essi sono: 

B00LEAN, INTEGER, REAL e CHAR 

(da notare che CHAR si riferisce alla stringa di 1 
carattere; questo e’ molto piu’ restrittivo di quento 
avviene in Basic per le stringhe!). 
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Pero', e questo e' un grosso vantaggio del Pascal, il 
programmatore può’ definire i suoi tipi di variabili, cosa 
che gli permette di manipolare classi di oggetti particolari 
e adatti al suo problema. 

Un tipo può’ essere definito sia listando i simboli degli 
oggetti costituenti il tipo: 

TYPE PAESAGGIO = < MARE, MONTAGNA, CAMPAGNA, CITTA’) 
sia definendo un intervallo di validità': 

TYPE MINUGCENTO = 1..100 

Infine, un tipo di oggetti può' essere definito come 
insieme (SET OF) di elementi appartenenti a un tipo 
elementare definito. 

Questo e’ molto comodo, soprattutto perche’ il compilatore 
inserisce automaticamente delle verifiche sulla conformità' 
dei tipi. 

Torneremo su questo argomento in seguito e scopriremo 
alcune limitazioni. 

. A) DICHIARAZIONE DI VARIABILI 

La diehiarazione di ogni variabile specifica il tipo della 
variabile e, eventualmente, la sua strutture, se si tratte 
di una tabella. Esempio: 

VAR I, J: INTEGERj 

M: ARRAYC1..5,1..73 OF REAL* 

definisce I e J come variabili intere e M come matrice reale 
di dimensioni 5 per 7. 

La struttura ARRAY può' essere imposte ad un tipo. Per 
esempio, certi compilatori hanno come tipo standard anche 
ALFA, che potrebbe anche essere dichiarato cosi': 

TYPE ALFA=ARRAYC1..10] OF CHAR; 

La strutture RECORD può’ anche essere imposta sia ed una 
variabile che ad un tipo. 

Le variabili strutturate di tipo ARRAY sono composte da 
elementi tutti dello stesso tipo. Questo e' quello che 
succede Bnche in Fortran o in Basic. 

In Pascal esistono pero' anche delle strutture complesse 
di variabili, nelle quali gli elementi sono di tipo diverso. 
Per esempio, un documento può' contenere un nome (stringa di 


18 



caratteri), poi un numero, poi un numero di ore di lavoro. 
Questo può' essere rappresentato da una variabile RECORD o 
da un tipo RECORD. Esempio: 

VAR IMPIEGATO : RECORD 

NOME:ALFA; 

NUMERO:INTEGER; 

NUMERORE:REAL END; 

Un tipo strutturato si dichiara per esempio come: 

TYF'E COMF'LEXE = RECORD F'ARTREAL : REAL ; 

PARIMMAG:REAL END; 

e si potrà' avere: VAR Z : COMPLEXE; 

NOTA: In un modulo di programma Pascei le parole VAR e TYF'E 
devono comparire una sola volta. Se si devono dichiarare 
molti simboli, si procederà' cosi': 

TYPE MINUGCENT* 1..100; 

VACANZA= (MARE, MONTAGNA); 


Questa panoramica delle istruzioni del Pascal ci ha 
mostrato quale ricchezza ci sia di tipi di dati e come le 
possibilità' al riguardo possano essere migliorate 
ulteriormente. 

Questo porta naturalmente ad una certa complessità'. 
D'altra parte si hanno certe carenze, come il tipo CHAR che 
si riferisce a stringhe di 1 carattere, e si e’ visto che il 
tipo ALFA, standard o definibile dall'utente, consente di 
aggirare questa difficolta'. 

Si può’ comunque affermare che in generale e’ difficile 
stabilire se un linguaggio e' superiore o inferiore ad un 
altro. Ogni volta che un linguaggio presenta una 
limitazione, fornisce anche i mezzi per superarla; 
inversamente tutte le volte che mostra di avere pregi 
straordinari si scopre che altri linguaggi lo superano in 
altri punti. Inoltre non si può’ considerare il miglior 
criterio di scelta il fatto che un linguaggio si scriva 
facilmente. Ci sembra miglior criterio guardare se le 
carattèristiche del linguaggio facilitano l'acquisizione di 
buone abitudini nel programmare. Alcune esperienze hanno 
dimostrato che, da questo punto di vista, il Pascal si trova 
in buona posizione. 
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2.5. ALTRI VANTAGGI DEL PASCAL 


Le possibilità' di definir® tipi di dsti convenienti per 
l'utente e la predisposizione alla programmazione 
strutturata sono due vantaggi indiscutibili del Pascal. Ore 
ne vedremo degli altri, che sono meno importanti, ma che 
hanno anche il loro peso. 


STRUTTURA A BLOCCHI 

Supponiamo di scrivere un programma in Basic. All'interno 
di un ciclo: 

100 FOR 1=1 TO N 

150 NEXT 

decidiamo di porre: 130 GOSUB 1000 

Nel sottoprogramma che inizia in 1000 si ha un altro 
ciclo, governato ancora da I: 

1050 FOR I = .... ed ecco l'errore! 

Infatti modificando la I della istruzione 1050 viene 
modificata la stessa I che e' usata nella 100. 

Si ha una mancanza di modulerita’: la variabile I usata 
nel sottoprogramma dovrebbe essere indipendente dalla 
variabile I del programma chiamante. Se cosi' fosse le 
variabile I sarebbe chiamata "variabile locale". 

In Basic tutte le variabili sono "globali"} qualunque 
variabile e' valida per tutti i sottoprogrammi presenti. 

In Fortran , invece, le variabili di un sottoprogremma 
sono locali. Pero' nasce il problema di far comunicare tra 
loro il programma principale e i sottoprogrammi e quindi 
servono delle variabili globali. Il Fortran risolve il 
problema in modo molto delicato o trasmettendo gli argomenti 
nella chiamata dei sottoprogrammi o usando la COMMON. 

Il Pascal da' una buona soluzione a questo problema (come 
d'altronde Algol, PL/1 o LSE): un programma può' essere 
suddiviso in blocchi delimitati sia da FUNCTI0N...END che dj 
PROCEDURE... END. I blocchi possono essere contenuti uno 
dentro l’altro (inscatolati). 

Se una variabile e' dichiarata all'inizio di un blocco, 
esse risulta locale per quel blocco. Una variabile 
conosciuta in un blocco e' conosciuta da tutti i 
sottoprogrammi interni al blocco stesso, a meno che essa non 
venga ridichiarata in un blocco interno. Esiste dunque la 
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possibilità' di avere variabili locaii-globali a parecchi 
stadi diversi e questo permette di controllare come si vuole 
il programma. 


GRADO DI SIMBOLIZZAZIONE 

Qual’e’ il principale progresso ottenuto nel passaggio dal 
linguaggio macchina al l'assembler e poi dal1'assembler ad un 
linguaggio ed alto livello? I dati sono tratteti in forme 
via via piu' simboliche. 

Quanto piu' il trattamento dei dati riferisce oggetti 
simbolici, tanto piu' le cose sono viste dall'alto e tanto 
piu’ si ha una visione sintetica dell'elaborazione. 

Gli oggetti che possono essere trattati in forma simbolica 
nei diversi linguaggi di programmazione sono: 

. le variabi1i; 

. le costenti ; 

. le etichette; 

. i nomi dei sottoprogremmi. 

La tabella che segue mostra quali sono trattabili in forma 
simbolica nei piu’ comuni linguaggi di programmazione. 


OGGETTI 


L I N 

G U A G G I 

* 


Macc hine 

Bas i c 

Fortran: Pascal 

Cobol : 

Veriabi1 i 

NO 

SI 

SI 

SI 

SI : 

Sotto- 

NO 

NO 

SI 

SI 

SI : 

program^i 
Elie bette 

NO 

NO 

NO 

NO ( 1 ) 

SI 

Costenti 

NO 

NO 

NO 

SI 

N0<2): 


(1) le etichette sono poco utilizzate in F’escal e non hanno 
ragione di esistere nella programmazione strutturata; 

(2) esistono alcune costanti speciali in forma simbolica: 
SPACE, HIGM-VALUE,ecc. 

La precedente tabella mostra che il Pascal e' ben piazzato 
da questo punto di vista e questo giova molto alla sua 
duttilità’ in fase applicativa. 
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2.6. I CARATTERI DEL PASCAL 


E' tradizione, quando si studia un linguaggio, fermare 
l'attenzione sul SET di caratteri disponibili. 

Il SET dei caratteri standard Pascal comprende! 

. LETTERE: A. 2-, a.z; 

. CIFRE! 0.?; 

<in questo libro lo zero e la lettera 0 sono chiaramente 
distinguibili e quindi non e' necessario barrare l'uno dei 
due ) j 

. CARATTERI SPECIALI, OPERATORI 0 SEGNI DI PUNTEGGIATURA! 
+ - * / v A 1 = t <<=>=>() r 1 { } 

'(apostrofo) . , i ; e lo spazio. 

Noi utilizzeremo inizialmente il set standard. Nascono 
delle difficolta' quando si deve lavorare su uno specifico 
calcolatore. A volte e' necessario usare un insieme ridotto 
di caratteri e per le stampanti un insieme ancora piu’ 
ridotto. 

Per questa ragione ad alcuni particolari caratteri e’ 
stato attribuito un sinonimo e questo può' essere usato se 
necessario. In particolare si he un set ASCII nel quale si 
ha : 


. le lettere minuscole non sono usate; 

. sono usati i sinonimi che seguono: 

V OR A AND 1 «•- NOT ^ -- <> « <= 

-»«-*•>= 

f ■*—*■ /SO { «--► (Jt } -*”*■ i) 

ed a volte anche i seguenti: 

? # A & v <-*■ ! Q <--*■ (. 2 . ) 

n ^ % 

Tutto questo comunque nuoce alla portabilità' dei 
programmi. Noi consacriamo un paragrafo alle portabilità’. 


2.7. PUNTEGGIATURA E IMPAGINAZIONE 


Come tutti i linguaggi, il Pascei ha delle regole di 
punteggiatura, piu' precise che in Fortran (dove mancano 
quesi del tutto) o in Basic (solo : per separare due 
istruzioni sulla stessa linea). 

Nel Pascal il separatore tra due istruzioni e’ il punto e 
virgola (;) - . La regola d'uso e' semplice: 


Tutte le istruzioni devono essere seguite dal 


a meno 




che esse siano seguite da END, ELSE o IINTIL, o parole chiave 
staili. 

. END è' seguita da ; a meno che: 

. essa sia seguita da una parola chiave in una 
struttura concatenata; 

. sia le END finale di una procedure; in questo caso 
essa e' seguita da un punto (.). 

In caso di dubbio non ci si deve preoccupare di mettere un 
; in piu’ (questo crea solo delle istruzioni vuote). Il 
punto e virgola separa anche le diverse classi in una 
istruzione diehiarativa. Ne abbiamo già’ visto degli esempi. 

L’uso di spazi ha alcune limitazioni (molto leggere e del 
tutto normali): non si possono usare spazi all'interno di 
parole chiave, le parole chiave devono essere seguite almeno 
da uno spazio e questo favorisce la leggibilità'. 

Il Pascal incoraggia l’uso degli spazi per ottenere una 
impaginazione che faciliti la lettura del programma. Ne 
abbiamo visto degli esempi nelle istruzioni diehiarative. 
Naturalmente per le istruzioni di strutturazione il Pascal 
fa sue le raccomandazioni della programmazione strutturata 
(vedi Capitolo 1). 

I programmi ottenuti sono allora perfattamente leggibili, 
da bisogna notare che questo non e' il solo pregio del 
Pascal ! 

In effetti, le regole di impaginazione sono solamente 
delle raccomandazioni; esse non sono per nulla obbligatorie. 
Niente vi impedisce di fere dei programmi "da ceni" in 
Pascal! 

Voi potete mettere piu’ istruzioni sulla stesse linea ed 
anche scrivere una istruzione per meta' su una linea e per 
l’altra meta' sulla linea seguente. Esempio: 


XXXXXXX ; YYYYY 

invece di 

XXXXXXX ; 

YYYYY ; 


YYYYYYYYYY 

IF X<0 THEN Y:=- 

invece di 

IF X<0 

X ELSE Y:=X; 


THEN Y: 



ELSE Y: 


Inversamente, niente vi impedisce di fare una buona 
impaginazione in Fortran o in Basic; per quest’ultimo lo 
mostriamo nell’Appendice A. 

Allora perche’ questa differenza? Perche’ non fere una 
buona impaginazione in Fortran o in Basic, posto che la si 
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fa in Pascsi? 

E' uns questione di abitudine, e, bisogne riconoscerlo, 
nella formazione delle abitudini entra in buona parte la 
responsabilità’ degli insegnanti. 

Se il Fortran ed il Basic fossero insegnati incoraggiandò 
la chiarezza della esposizione, le buone abitudini 
verrebbero prese sin dall’inizio. 

E’ anche vero che la struttura del Pascal incoraggia, 
inconsc i amante, la buona d i spos i z i one. D'altra p<arte, 
l’apparizione del Pascal dopo la programmszione strutturata 
ha certo favorito un cambio nelle abitudini. Noi 
consideriamo, in ogni caso, il fatto di insegnare il Pascal, 
come un impegno dell'insegnante a incoraggiare delle buone 
abitudini nella programmazione. 

Ovunque in Pascal sono permessi degli spazi può' essere 
inserito un commento includendolo tra parentesi graffe. Ma 
in Fortran ed in Basic si hanno altrettante possibilità' per 
inserire commenti, noi potremmo riprendere le stessa 
discussione di cui sopra.... 

Ci limitiamo e raccomandare vivamente di inserire numerosi 
ed appropriati commenti qualunque sia il linguaggio 
utili zzato. 

ESERCIZIO 2.1. Questa panoramica sul Pascal dovrebbe essere 
sufficiente per scrivere in Pascal il programma 
dell’esercizio 1.5. (la soluzione e’ nell'Appendice D). 


Nota: I commenti nei programmi in Pascal devono essere 
contenuti in parentesi graffe. Del momento che non possiamo 
usare tali parentesi nel testo, i commenti vengono 
delimitati da asterischi. 
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CAPITOLO 3 


ISTRUZIONI SEQUENZIALI 


3.1. PREMESSA 


Nel corso di questo capitolo, esamineremo gli elementi 
fondamentali del Pasqal, e servendoci di essi, potremo già' 
eseguire dei piccoli prograoim i . 

In questo capitolo si esaminano solamente le istruzioni 
che vengono eseguite in modo sequenziale; sera’ solamente 
nel prossimo capitolo che vedremo le istruzioni che 
permettono di passere de una sequenza ed un’altra: 
istruzioni di rottura di sequenza o istruzioni di 
strutturezione. 

Le tre istruzioni sequenziali fondementali corrispondono 
alle tre operazioni di base che sono sempre presenti durante 
il trattamento delle informazioni: 

1. Acquisizione dei dati che devono essere elaborati. 

2. Calcoli che permettono di elaborare nuove informazioni 
(risultati) a partire dai dati iniziali. 

3. Emissione o stampa dei risultati. 


3.2. ISTRUZIONI DI LETTURA 


PRESENTAZIONE DEI DATI 

I dati che devono essere letti e servono come punto di 
partenza per un calcolo, sono forniti in una forma che 
dipende dalle modalità’ di utilizzo del calcolatore. 

I due principali modi di utilizzo sono: 

a. Grandi calcolatori con "elaborazione a lotti". 

b. Micro-calcolatori singoli con "elaborazione 

conversezionale". 

Un caso intermedio e’ quello dei grossi calcolatori 
utilizzati in "tempo parziale". Questo caso e' riconducibile 
al caso b. del momento che ogni utilizzatore dispone di un 
termina le conversazionale. 

Nel ceso e. 1’uti1izzatore, in generale, prepara un pacco 
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la sua 


di scheda, e, dopo un attesa che «ette a dura prova 
pazienza, riceve un listato con i suoi risultati. 

Il pacco di schede comprende? 

. le schede del programma Pascal; 

. le schede dei dati di ingresso; 

. le schede, chiamate di controllo, che servono per il 
sistema operativo. 

Un pacco di schede potrebbe anche avere la seguente 
composizione : 

. scheda di controllo che definisce il tipo di lavoro < 
dice per esempio a chi deve essere addebitato il tempo 
mac china); 

. scheda di controllo per chiamare il compilatore 
Pascal ; 

. schede del programma Pascal; 

. scheda di controllo di "fine pacco"; 

. scheda di controllo per chiedere l’esecuzione del 
programma ; 

. schede dei dati; 

. scheda di controllo di "fine pacco". 

I dati sono scritti sulle schede sotto forme di numeri. 
Due numeri sono separati uno dall'altro o almeno da uno 
spazio o dal fatto che si passa sulla scheda seguente. 

Esempio: per fornire i numeri 1 1,5 2 si avra’ una 

scheda come la seguente: 


1 1.5 


notate il punto anglosassone al posto della virgola per i 
deeimali. 



Nel caso b. si utilizza una tastiera e un video invece 
della scheda scritta, e le risposte sono immediate, da le 
informazioni de scrivere ella tastiere sono dello stesso 
tipo delle precedenti e cioè' delle tre categorie: 


. comandi per il sistema operativo; 

. istruzioni Pascal; 

. dati forniti in risposta ed istruzioni di letture. 


ISTRUZIONI DI LETTURA 


Il Pascal fornisce due istruzioni 
READ e READLN, seguite dalla lista, 
delle variabili che devono ricevere 


per le letture dei dati: 
contenuta tra parentesi, 
i dat i . 


Esempio: READ <A,B,C>; 


26 



legge 13 schede mostrata sopra e pone: A=l, B=1.5eC » 


.Se piu' istruzioni READ si susseguono, esse leggono dati 
dalla stessa scheda, fino a quando ce ne sono. 

Esempio: READ <A,B); 

READ <C>; 

leggono dalla stessa scheda i tre dati, come nel precedente 
esempio. 

READLN <X,Y>} fa leggere le due variabili X e Y, poi passa 
alla scheda seguente, in attesa di letture successive. 

READLN; può’ essere usata senza lista di variabili. Essa 
ha l'effetto di far passare alla scheda seguente (ignorando 
eventuali dati che si trovino ancore sulla scheda). 

Esempio: READLN <A,B>; 

RFAD C; 


non evra’ lo stesso effetto dei due primi esempi precedenti} 
infatti si avra' < sempre con la scheda di dati 
precedentemente usata) A = 1, B = 1.5, ma il dato 2 verrà' 
ignorato per effetto di READLN con solo due variabili nella 
liste, e la variabile C ricevere' il primo dato presente 
sulla scheda successiva. 

Se, durante una lettura, si arriva alla fine della schede 
senza aver ottenuto valori per tutte le variabili della 
lista, le letture continue sulla schede seguente; il cambio 
della scheda ha lo stesso effetto separatore dello spazio 
tra i deti . 

Esempio: due schede come queste 123 

4 5 

e l'istruzione READ <A,B,C,D); 

fanno si che: A = 1, B = 2, C = 3 e D = 4 . 


ESERCIZIO 3.1. - Avendo le seguenti 3 schede di dati: 

1 2 3 

4 5 

6 

ed i comandi di lettuta: READLN <A,B); 

READ <C,D,E); 

dire quali saranno i valori delle variabili. 


I separatori non hanno effetto se le variabili sono di 
tipo CHAR. Si vedrà' piu' avanti che una variabile CHAR 
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contiene un carattere alfanumerico. 

Quando si chiede di leggere una lista di variabili CHAR, 
viene letto in sequenza qualunque carattere e' presente 
sulla scheda. 

Esempio: se si ha una scheda con la scritta ALFREDO, 
l'istruzione: 

READ <A,B,C,D); pone A » ’A’, B = ’L’, C = ’F', D = ’R' 

Quando la scheda non contiene piu' dati, non si ha il 
passaggio automatico alla scheda seguente, ma le variabili 
restanti vengono riempite di spazi <blanc). Per passare alla 
scheda successiva e’ necessaria una istruzione READLN. 

Vedremo che e' possibile usare la funzione EQLN <fine di 
riga) per verificare se tutti i carattetri di una scheda 
sono stati letti. 


ESERCIZIO 3.2. -• Leggere i primi 4 caratteri di una scheda 
nelle variabili (di tipo CHAR) A, B, C, D e i primi 4 
caratteri delle scheda successiva nelle variabili E, F, G e 
H. 


UTILIZZO IN MODO CONVERSAZIONALE 

Resta valido tutto quello che si e' detto pur di 
sostituire la parola "schede" con la parole "riga". Il 
passaggio alla riga seguente si ottiene usando il tasto 
"ritorno-carre1lo". 

Il modo piu' sicuro e' sempre quello di leggere le 
variabili una per volta con delle istruzioni READLN 
(esempio: READLN (X);) e di terminare ogni dato con il tasto 
"ritorno-carrello". 


3.3. ISTRUZIONI DI SCRITTURA 


Il Pascal dispone di due istruzioni per la stampa dei 
risultati! URITE e WRITELN. 

Nell'uti1izzo e schede i risultati vengono in generale 
stampati su carta; nel modo conversazionale essi compaiono 
sullo schermo. 

per evidenziare il valore delle variabili A, B e C, si 
scriverà' per esempio: 

URITE (A, B, C); oppure 
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WRITELN (fi,, B, C); 


I valori di A, B, C vengono evidenziati consecutivamente. 
Per esempio, se A, B e C valgono rispettivamente 1,2 e 3, 
si vede apparire: 123. 

Le differenza tra le due istruzioni WRITE e WRITELN e' 
che, dopo la istruzione URITE non si ha il passaggio alla 
linea seguente, mentre questo avviene dopo la istruzione 
WRITELN (quest'ultima istruzione esaurita la lista delle 
variabili manda a nuova linea). 

Esempio: se A, B e C valgono 1, 2 e 3; con la sequenza: 

URITE (A, B, C) 5 
WRITELN (A, B, C) -, 

si ottiene: 123123} 

mentre con la sequenza: 

WRITELN (A, B, C>| 

URITE (A, B, C>,- 

si ottiene: 123 

123 


ESERCIZIO 3.3. - Considerate i due esempi sopra riportati e 
dite dove si avra' la stampa successiva. 


WRITELN può’ essere usata senza lista di variabili. 
L'effetto e di mandare a nuova linea. 

Gli elementi da stampare possono essere anche delle 
espressioni aritmetiche o delle stringhe di caratteri 
compresi tra apici. 

Esempio: 

WRITE ('LA SOPIRÀ DI A E B RISULTA ’,A+B>} 

produce la stampa di: 

LA SOPIRÀ DI A E B RISULTA 3 

se i valori di A e B sono quelli usati sopra. 

Le stringhe di caratteri sono indispensabili per spiegare 
il significato dei risultati che vengono stampati (se i 
risultati possibili sono molti vedere delle sequenze di 
cifre senza spiegazioni non e' accettabile). Inoltre esse 
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servono per distanziare i risultati inserendo degli spazi 
(negli esempi esposti non si poteva sapere se si trattava 
delle tre cifre 1, 2 e 3 o del numero 123!). 


IMPAGINAZIONE 

Oltre all’elemento de scrivere può' essere specificato 
anche il "formato" nel quale esso deve essere scritto. 

Per un risultato intero, si può’ specificare mediante un 
numero intero il numero minimo di caratteri da scrivere. 


F’er esempio con: URITE <Ks3)j 
si ottiene rispettivamente: 


K=5 

viene scr 

itto 5 


K=121 

" 

" 121 


K=1538 

ii 

" 1538 


In conclusione, se l' 

elemento 

ha bisogno di 

almeno 

caratteri, esso verrà’ 

scritto 

almeno con 3 

caretter 


inserendo eventualmente degli spazi a sinistra; se 
l’elemento ha bisogno di piu’ caratteri, essi verranno 
scritti tutti (per esempio il Fortran in questa situazione 
si comporta diversamente). 

Per un risultato reale, si devono specificare due numeri 
per i caratteri; il primo si riferisce al numero totale dei 
caratteri, come per gli interi o le stringhe, il secondo si 
riferisce al numero delle cifre decimali. 

Cosi’ il numero X=25.678, usando le istruzione 

URITE (X:10:4) viene scritto 25.6780 facendo 

precedere il 25 da 3 spazi. 

Il segno, il punto decimale ed uno spazio iniziale, sempre 
presente, contano nel numero totale dei caratteri. 

Quando per un numero reale non viene specificato il 
formato di scrittura, esso viene stampato cosi': 
spazio segno Y.XXXEn e viene interpretato come: 

Y.XXX >i 10 elevato a n. 

I parametri di formato possono anche essere scritti come 
espressioni aritmetiche a valore intero. 

Quando si vuole stampare una intestazione facendola 
precedere da N spazi, con N calcolato, basta scrivere: 

WRITELN (":N,'intestazione'); 
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* questo potrà' servire per tracciare una curva 


ESERCIZIO 3.4. - Calcolare la somma dei valori delle 

variabili A e B e dare il risultato facendolo precedere da 
una frase esplicativa. 

La stampa dovrà’ provocare il passaggio ella linea 

successiva. 

Osservate la differenza con l’esempio riportato dopo 
l'esercizio 3.3.. 


CAMBIO DI PAGINA 

Usando una stampante con certa ripiegata a fogli si può’ 
usare l'istruzione PAGE per portarsi all'inizio della pagina 
seguente. 


Abbiamo letto dei dati e stampato dei risultati. Sappiamo 
anche impaginare i risultati, ma dobbiamo imparare a 
calcol erii! 


3.4. ISTRUZIONE ARITMETICA DI ASSEGNAZIONE 


L’istruzione fondamentale per il calcolo e' l'istruzione 
aritmetica di assegnazione. Essa ha la forma: 

variabile := espressione aritmetica 


Esemp i : 


C : = A+B -, 

S :=PI*R*R ; 

Essa ha il seguente effetto: 

1. calcola l'espressione aritmetica che sta scritta a 
destre di := 

2. assegna il risultato nella forma adatte alla variabile 
scritta a sinistra di :=. 

Iri Pascal una scrittura come: X :=X+1; non ha alcunché’ di 
paradossale. 


ESERCIZIO 3.5. - Gual’e' l’effetto delle istruzione: 
X:=X+l f ? 
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ESERCIZIO 3.6. - E' corretta l'istruzione A+B Cj ? 


ESPRESSIONI ARITMETICHE 

Una espressione aritmetica e' una combinazione, tanto 
complicata quanto si vuole, di operandi e di operatori 
sritmetici. 


GLI OPERATORI 

Gli operatori aritmetici del Pascal sono: 

+ addizione 

sottrazione 
* moltiplicazione 
/ divisione a risultato reale 
DIV divisione a risultato intero 

MOD resto della divisione <X MOD Y fornisce il resto 
della divisione di X per Y). 

Questi operatori si applicano ad operandi interi o reali 
(supponiamo, per il momento, una conoscenza intuitiva di 
questi tipi di operandi} essi verranno discussi in dettaglio 
piu' avanti) che possono essere mescolati. 

DIV e MOD si applicano solo ad operandi interi ed i 
risultati prodotti sono interi. 

Per gli operatori + - * il risultato e' dello stesso tipo 
dei due operandi se essi sono dello stesso tipo} il 
risultato e' reale se almeno uno dei due operandi e’ reale. 
L'operatore / da' sempre un risultato reale, anche se i due 
operandi sono interi. 

Esempio: 3/2 da’ come risultato 1.5 
3 DIV 2 da' come risultato 1. 

Confrontando con il Basic e il Fortran si hanno gli 
operatori DIV e MOD in piu’, ma non si ha l’operatore per 
l'elevamento a potenza! Pur essendo esplicitamente voluto da 
coloro che hanno predisposto il Pascal ed essendo facilmente 
ottenibile mediante una funzione definita dall'utente, 
questa e' una mancanza! 


ESERCIZIO 3.7. - Scrivere una espressione equivalente a X 
MOD Y utilizzando DIV. 

Esistono delle regole per la valutazione delle 
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espressioni. Infatti una espressione come A+B*C potrebbe 
sembrare ambigua; si calcola A +<B*C) oppure <A+B)*C ? 

Queste regole sono analoghe a quelle del Fortran e del 
Bes i c. : 

1. Gli operatori moltiplicativi <* / DIM MOD) hanno la 
precedenza su quelli additivi <+ Per cui nel caso 
precedente e’ A+<B*C). 

2. Se due operatori appartengono allo stesso gruppo essi 
si applicano partendo da sinistra. Esempio: 4*5 DIM IO da' 
come risultato 2 <la moltiplicazione viene eseguita prima). 

3. Si può' sempre imporre un ordine facendo uso delle 
parentesi. Per moltiplicare la somma di A e B per C si 
scrive: <A+B)*C. 

Le regole di formazione delle espiressioni aritmetiche sono 
recursive e possono portare gradualmente ad espressioni 
molto complicate. 

In una istruzione di assegnazione aritmetica, in Pascal 
come in tutti gli altri linguaggi, gli operandi che figurano 
nel l ' espress i one a destra di : « sono semplicemente 
utilizzati per il calcolo. Le variabili non vengono 
modificate. L’unica variabile modificata e’ quella che si 
trova a sinistra di :=. 


3.5. GLI OPERANDI 


Gli operandi delle espressioni aritmetiche sono le 
costanti, le variabili ed i riferimenti alle funzioni. 


LE COSTANTI 

Una costante e’ utilizzata quando si deve fare 
riferimento ad un dato già' espiicitamente conosciuto e non 
veriabi1 e. 

F'er esempio, se si deve moltiplicare X per 3 e si e’ 
sicuri che 3 e' una costante che non cambierà' mai, si 
scrive: Y:= X*3 ;. 

Il Pascei consente di esprimere le costanti in forme 
simbolica purché' esse siano state dichiarate tali con una 
istruzione CONST. 

Esempio: CONST FATTORE = 3; 
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PI = 3.14159265; 
e poi : Y :=X*FATT0RE 

S :»PI*R«R 

Questa possibilità’ ha 3 vantaggi! 

1. Le costanti vengono espresse in forma mnemonica 
mediante un nome. 

2. Se, a causa di una modifica, e' necessario cambiare la 
costante, si deve modificare il programma solo in un punto. 

3. Le costante viene definita una sole volta e può’ 
venire usata quante volte si vuole. 

Domanda: In cosa una costante differisce de una variabile? 

In effetti, in un linguaggio diverso dal Pascal, si 
sarebbe fatto ricorso ed una variabile per ottenere lo 
stesso risultato. 

Le "costanti simboliche" del Pascei hanno un altro 
vantaggio. Supponete di avere in un programma una variabile 
con nome simbolico PU e di avere definito le costante 
simbolica PI = 3.14159265. Se piu' avanti nel programma 
commettete l’errore di scrivere: PI : = PU + AU (invece di 
scrivere: PU := PU + AU), negli altri linguaggi non vi viene 
segnalato alcun errore e tutti i calcoli nei quali si use PI 
saranno sbagliati. Con il Pascal, invece, un errore di 
questo tipo viene segnalato, infatti il compilatore non 
consente di modificare il valore di una costante e PI e' 
stato dichiarato CONST. 


LE VARIABILI 

Le variabili sono gli operandi piu’ frequentemente usati 
nelle espressioni aritmetiche. 

Ricordiamo che una variabile e' un nome simbolico 
attribuito ad una parte di memoria (contenitore). 

In Pascal ogni variabile deve essere dichiarate in una 
istruzione VAR. Lo scopo principale di questa istruzione e’ 
eli specificare il TIPO della variabile. 

Esempio: VAR I : INTEGER; 

2 : REALi 

La specifica del tipo e’ essenziale per consentire al 
compilatore di allocare per la variabile la quantità' di 
memoria necessaria. 

La quantità’ di memorie allocata per una variabile 
determina l'ordine di grandezza massimo del numero in essa 
contenuto e la sue precisione. 
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Questi parametri disgrazistarnante variano in dipendenza 
dal compilatore e del calcolatore usati. 


Le PAROLE usate nei linguaggi di programmazione 
appartengono a 2 categorie: 

Le PAROLE CHIAME, che sono fisse ed hanno un preciso 
significato per il linguaggio (esempio: MAR, CONST, BEGIN, 
IF,....). Esse sono parole riservate nel senso che non 
devono essere utilizzate (per esempio come identificator i > 
in circostanze diverse da quelle per le quali il loro 
impiego e' previsto con il significato ad esse attribuito. 

Gli IDENTIFICATORI, che sono arbitrari, sono inventati 
dal programmatore secondo i suoi desideri, pur di rispettare 
alcune regole nella formazione delle parola. I migliori 
esempi di identificatori sono i nomi simbolici delle 
costanti e delle variabili. 

Le regole per la formazione degli identificatori sono poco 
restrittive in Pascal. Un identificatore deve essere formato 
de lettere e cifre, ma il primo carattere deve essere una 
lettera. 

Il numero dei caratteri e’ libero, ma la maggior parte dei 
compilatori distingue tra loro gli identificatori in base ai 
primi 6, 8 o 10 caratteri. Due nomi come : PRINCIPE e 
PRINCIPESCO, se il compilatore considera 8 caratteri, 
riferiscono le stessa variabile. 

Tenendo conto che in molti Basic la distinzione viene 
fetta su 2 caratteri si vede che in Pascal la situazione e’ 
migliore. Il Pascal consente quindi di creare degli 
identificatori dotati di un buon significato mnemonico e 
questo ha la sua importanza. 


ESERCIZIO 3.8. - Dite quali critiche si possono fere alla 
seguente diehisrazione di variabili: 

MAR 1 RI PIAMAR', SECONDAMAR : INTEGER ; 

ALBERTA, ALFREDO, ARTURO : REAL ; 

SOTTO, SOPRA, ALBERTA : INTEGER ; 

ENRICO-QUARTO : REAL -, 

H2S0A4, SOTTO : REAL -, 


Naturalmente non si possono inserire all'interno degli 
identificatori ne' caratteri speciali ne' spazi (meno libero 
che in Fortran, ma preferibile). 

Esiste una categoria di parole intermedie tra le 
parole-chi ave e gli identificatori; esse sono gli 
IDENTIFICATORI STANDARD. 
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Essi sono degli i dentificatori che sono stati predefiniti 
implicitamente dal sistema. Tra di essi troviamo: 

. nomi di tipi (esempio: INTEGER, READ; 

. nomi di costanti (esempio: TRU, FALSE, PlAXINT (massimo 
intero trattabile)); 

. nomi di funzioni o di procedure standard (esempio: 
READ, URITE (procedure), SIN, EXP (funzioni)). 

Gli identificatori standard non ’ sono parole riservate; 
essi possono essere usati per uno scopo diverso da quello 
previsto ridefinendoli. Questo modo di procedere e’ pero’ 
formalmente sconsigliato e nella pratica ci si comporta come 
se essi fossero parole riservate. 

Le chiamate di procedure standard appaiono come delle 
nuove istruzioni Pascal e noi ebbiamo utilizzato in questo 
modo le procedure di lettura e serittura. 


3.6. LE FUNZIONI 


In una espressione aritmetica si può’ fere riferimento ad 
un certo numero di funzioni matematiche predefinite. 
Esemp> io: 

Y:~ X + 3*<Z+C0S<2*X+1)> 

La chiamata della funzione si ottiene citondone il nome 
seguito dagli argomenti anche sotto forma di espressione. 
Per prima cosa viene calcolata l’espressione che funge da 
argomento della funzione, poi viene calcolate la funzione. 
Il valore ottenuto viene utilizzato nel p<rosegu i mento dei 
cale oli. 

Sono disponibili le seguenti funzioni aritmetiche: 

. con risultato reale usando argomenti sia reali che 
inter i : 

SIN(X) seno angolo in radianti 

COS(X) coseno 

ARCTAN(X) arcotangente 

EXP(X) esponenziale e elevato a X 

LN(X) logaritmo neperiano 

SQRT(X) radice quadrata 

. con risultato dello stesso tipo del 1'argomento (reale 
o intero): 
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ABS(X) valore assoluto 

SQR(X) quadrato X «-lavato a 2 

(attenzione per chi e' abituato al 
Basic, SOR del Basic diventa SQRT 
in Pascal). 

. conversione da reale a interos 

TRUNC(X) parte intera con troncamento 

ROUND(X) parte intera con arrotondamento. 

Queste due ultime funzioni sono i nd i spensai? i l i dato che 
una espressione reale non può' essere assegnata ad una 
variabile intera. Per contro una espressione intera può 7 
essere assegnata ad una variabile reale senza problemi. 


ESERCIZIO 3.9. - L'espressione I DIM J e' definita solo per 
I e J interi. Come fare per numeri reali? 


ESERCIZIO 3.10. - Calcolare Z = X elevato a Y. 


ESERCIZIO 3.11. - Tradurre in Pascei le formula per 
calcolare le radici di una equazione di secondo grado. 


3.7. RIEPILOGO 


Fino ad ora abbiamo passato in rassegna gli elementi base 
del linguaggio Pascal. Dal momento che sappiamo: 

. leggere dei dati; 

. fare dei calcol i; 

. scrivere dei risultati; 

possiamo cominciare a scrivere dei programmi in Pascal. 

Bene, scriviamo un programma molto semplice! Dogliamo 
preparare un programma che legga il raggio di un cerchio, ne 
calcoli le superficie corrispondente e scriva il risultato 
del calcolo. E' molto facile: 

READ (RAGGIO); 

S : = PI*SQR(RAGGI0> ; 

WRITELN ('SUPERFICIE * ’,S); 

In effetti quello che abbiamo scritto può' e deve essere 
perfezionato. Se si lavora in ambiente conversezionale si 
deve far precedere l'istruzione READ da una frase che 
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richieda il dato da leggere* 

WRITE ('SCRIVI IL RAGGIO DI UN CERCHIO ’)5 

Se si lavora in ambiente non conversai i onale si deve 
ricordare anche il raggio quando si scrive il risultato: 

PAGE; 

WR1TELN ('RAGGIO - ', RAGGIO, ’ SUPERFICIE = ', S); 

Per semplicità' continuiamo a riferirci alla prima 
versione, quelle adatte ad ambiente conversezionale. Anzi, 
d'ora in poi non torneremo piu' su questa distinzione, ma 
essa deve essere presente egli utilizzatori per ottenere dei 
buoni programmi. 

Nel nostro programma mancano altre cose che sono 
essenzial i . 


3.8. STRUTTURA GENERALE DI UN PROGRAMMA 


Le tre istruzioni sopra riportate danno la parte- 

essenziale del nostro programma, ma esso e’ incompleto. 

Il gruppo di istruzioni eseguibili del programma deve 
essere compreso tra BEGIN e END. (Le END finale del 

programma deve essere seguita da un punto). 

Inoltre il programma deve avere una intestazione che rechi 
il suo nome : 

Esempio: PROGRAM CERCHIO ; 

L’intestazione deve precisare tra parentesi tutti i 
simboli esterni utilizzati, procedure e file. Spesso vengono 
precisati i file standard di letture (INPUT) e di scrittura 
(OUTPUT) : 

Esempio: PROGRAM CERCHIO (INPUT, OUTPUT); 

Con i compilatori UCSD questa diehiarazione non e' 

obbligatoria ed e' sufficiente la prime forma di 

intestazione riportata. In altre versioni non e' necessaria 
alcuna intestazione. 

Tra PROGRAM e BEGIN si trovano le diehiarazioni che 
definiscono le variabili. 

Devono essere indicete in ordine: 

. Le diehiarazioni LABEL (vedere Capitolo 2, non se ne 
piarlere’ piu’). 
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. Le dichiarazioni CONST dell? costanti simboliche. 

. Le dichiarazioni TYF'E che definiscono i t i p i non 
standard. 

. Le dichiarazioni VAR che definiscono i tipi e le 
struttura delle variabili. 

Esempio: CONST F'I = 3.14159265; 

VAR RAGGIO, S :REAL; 
equivalente a: VAR RAGGIO: REAL. ; 

S : REAL; 

Cosi' il nostro programma per il calcolo delle superficie 
di un cerchio sara' finalmente completo: 

PROGRAM CERCHIO; 

CONST PI = 3.14159265; 

VAR RAGGIO, S : REAL; 

BEGIN 

READ (RAGGIO); 

S:=PI*SQR(RAGGIO); 

WRITELN ('SUPERFICIE = ’, S); 

END. 

L’esempio illustre le regole per la puritegg i atura 
ricordate nel Capitolo 2. 


ESERCIZIO 3.12. - Scrivere il programma che risolve il 
problema inver-so del precedente, cioè’ calcolare il raggio 
di un cerchio di cui e' date la superficie. 


ESERCIZIO 3.13. - Calcolare il volume della sfera. 


ESERCIZIO 3.14. - Calcolare il volume di un cilindro di 
raggio R e di altezza H. 

Per il momento utilizziamo solamente i tipi di dati 
standard. Vedremo, e questo e' molto nuovo, che 
l’utilizzatore può’ definire i propri tipi di dati non 
standard. Tra i tipi standard fino ad ora abbiamo trattato 
gli interi (INTEGER) e i reali (REAL). 


3.9. TIPI STANDARD 


INTEGER: sono i numeri interi. In dipendenze dal calcolatore 
usato gli interi possono essere di 16, 32 o 48 bit. 

La costante standard MAXINT fornisce il piu’ grande intero 
disponibile. MAXINT va da 32767 (per 16 bit) a 2.8*10 
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elevato a 14 (2.SE14, numero enorme) 


ESERCIZIO 3.15. - Fate stampare FIAXINT per sapere: 
.1 se il vostro compilatore dispone di MAX^NT; 
.2 quali sono i numeri che potete utilizzare. 


REAL: sono i numeri decimali. In dipendenza dal calcolatore 
utilizzato le precisione va da 9 a 14 cifre significative e 
l'ordine di grandezza va da 10 elevato a 30 a circa 10 
«•levato a 300. 

Altri tipi standard ammessi dal F'ascal sono i seguenti. 

CHAR: e' di tipo CHAR una variabile che può' contenere uno 
qualunque dei caratteri disponibili. 

Esempio: VAR X :CHAR* 

X := 'A' 5 

I caratteri possono essere confrontati: IF X = ’W' THEN.. 

I caratteri sono ordinati: 'A' < 'B' < 'C'..... 

' 0 ’ < ’ 1 ’ < ’ 2 ’. 

La funzione 0R0(X) fornisce il numero corrispondente al 
carattere nel set di caratteri. 

l.a funzione CHR(I) fornisce il carattere corrispondente al 
numero I, con 0 <I<63. 

La funzione SUCC<X) fornisce il carattere che segue X. 

La funzione PRED(X) fornisce il carattere che precede X. 

Questo tipo e’ un po’ restrittivo se confrontato con le 
stringa del Basic. Alcuni compilatori consentono anche i 
tipi che seguono: 

ALFA, catena di 10 caratteri Itale numero e’ fisso, 
ma può' variare tra le diverse implementazioni). 

STRING, consentito da alcuni compilatori UCSD. 

E' simile alle variabili stringa del Basic con 
liberta' nel numero dei caratteri. 


B00LEAN: sono le variabili di tipo logico. Esse possono 
avere solo due valori che corrispondono alle costanti TRUE 
(vero) e FALSE (falso). 

Esempio: VAR COND :B00LEAN* 

C0ND := espressione logica 

Le espressioni logiche sono formate da: 




. costanti, variabili o funzioni logiche; 

. condizioni (cioè' espressioni aritmetiche collegste da 
operatori relazionali, come: A < 2*X+3 ); 

. espressioni collegate da operatori booleani: 

A ( o AND) che forma l'E logico; X AND Y e' vero se 
X e Y sono ambedue veri; 

V ( o OR) che forma l’O logico; X OR Y e' vero se 
almeno uno tre X e Y e’ vero; 

1 ( o NOT) che e' la negazione. 

In una espressione complessa, nella quale sono mescolati 
tutti i tipi di operatori, le regole per la priorità' sono 
le seguenti: 


piu' 

alti : NOT 




* / 

DIV flOD 

AND 


+ - 

OR 


piu' 

bassi:= < 

ii 

A 

ii 

V 

A 

<> 


(operatovi moltiplicativi) 
(operatori addittivi) 
(operatori r-elaz ional i ) 


Queste regole sono un po' diverse e, bisogna riconoscerlo, 
meno pratiche di quelle del Fortran e del Basic. 


ESERCIZIO 3.16. - Controllate se C (tipo CHAR) e' una cifra. 
ESERCIZIO 3.17. - Controllate se I e' divisibile per J. 
FUNZIONI LOGICHE 

Alcune funzioni hanno un valore logico: 

ODD(X) e' vera se l'intero X e' par i . 

EOF(fi le) e' vera se si e’ arrivati alla fine del file. 
EOF viene usata solo trattando file di lettura standard 
INPUT. 

EOLN(file) o solo EOLN: come sopra, ma per controllare la 
fine di una riga. 


Abbiamo visto le basi della programmazione in Pascal. Ci 
resta ancora della strada da percorrere. 

In particolare abbiamo visto solo le istruzioni di lettura 
e scrittura piu' elementari; ne vedremo di piu' nel capiitola 
dedicsto ai file. 

Per contro abbiamo già’ visto quasi tutto 
riguarda le istruzioni per il calcolo. 


quello che 



Vediamo subito le istruzioni che permettono di strutturar 
l programma. 



CAPITOLO A 


ISTRUZIONI DI STRUT TUR AZ I O NEI 


4.1. IF...THEN...ELSE 


Ecco un capitolo nel quale il Resesi si mostre nelle sue 
or i g i nel i te ' •. Le istruzioni di rotture di sequenze 
consentite in questo lingueggio sono quelle delle 
progremmezione strutturate. 


IF...THEN... ELSE, che significa: 

se e' cosi'...ellore...se no...., si scrive: 


IF espressione 


istruzione 3; 


logics THEN 

istruzione 1 
ELSE 

istruzione 2} 


Se l’espressione log ice e’ vere viene eseguite prime 
l'istruzione 1 e poi l’istruzione 3. Se l'espressione logica 
e' felse viene eseguite prime l'istruzione 2 e poi 
l’istruzione 3. 

Esempio bene le: 

IF A>B THEN 

WRITELN (’A MAGGIORE DI B’) 

ELSE 

WRITELN <’A MINORE 0 UGUALE A B’) f 
WRITELN ( 'TERMINATO' ) -, 

si ottiene in stampe: A MAGGIORE DI B 

TERMINATO 

oppure: A MINORE 0 UGUALE A B 

TERMINATO 


ESERCIZIO 4.1. - Vi siete di menti ceti che esiste le funzione 
ABS e volete calcolare il valore assoluto di Y. Come fate? 


IF NIDIFICATI 


Istruzione 1 e istruzione 2 possono essere delle 
istruzioni composte, cioè' della forma: 



BEGIN i 1; i 2; i 3 END; 


In un blocco di questo tipo si possono svere degli 
IF..THEN..ELSE o anche dei cicli REPEAT o UMILE. 

Esempio: Risoluzione dell’equazione di primo grado: AX + B - 
0. Se AOO X - -B/A. Se A = 0 scrivere "impossibile" o 

"indeterminsts" s seconda del valore di B. 

IF A = 0 THEN 

IF B = 0 THEN WRITEL.N ('INDETERMINATA') 

ELSE WRITELN ('IMPOSSIBILE') 

ELSE 

BEGIN 

X ; = - B / A ■ 

WRITELN ('RADICE = ', X) 

END; 

Osservate 1'impaginazione consigliata e la punteggiatura. 

Si sarebbe potuto usare un BEGIN tra THEN e IF B = 0 e 

l'END corrispondente tre IMPOSSIBILE e ELSE. Provate a fere 
cosi' per esercizio. 


ESERCIZIO 4.2. - Riscrivere il testo precedente inco-, 
«linciando con IF AOO.... 

Scrivere il programma completo con dichiarazioni, 
letture,... 


IF...THEN 

Si ha un caso particolare quando la clausole ELSE e’ 
vuota. Esso potrebbe essere scritto cosi': • 

IF condizione THEN istruzione 1 
ELSE; 

istruzione 3; 

E questo significa: eseguire istruzione 1 se le condizione 
risulta vera, poi eseguire istruzione 3; se la condizione 
risulta falsa eseguire subito istruzione 3. 

Per ottenere lo stesso risultato e' meglio scrivere: 

IF condizione THEN istruzione 1; 

istruzione 3; 

Si raccomanda di osservare l’uso della punteggiatura. 



L'istruzione 1 può' a sua volta essere una istruzione 
c omposta : 


IF condizione THEN BEGIN i JL ; i2; i3 END; 
istruzione 3; 

Fate attenzione; in questo caso il posto del ; e delle 
parole BEGIN e END e' molto importante. Sbagliando si può' 
cambiare completamente il significato. 

A volte può' essere piu' prudente usare ELSE o 
BEGIN...END. D’altra parte nei casi di nidificazione di IF 
con ELSE con IF senza ELSE, un ELSE si riferisce sempre 
all’ultimo IF incompleto trovato. 

Il modo di scrivere le istruzioni può' aiutarne la 
comprensione, ma non e' esso che da’ senso al programma. 
Esempi i o : 


IF a THEN IF b THEN il 
ELSE i2; 
i3; 

nelle intenzioni del programmatore corrisponde ad diagramma 
(a) sotto riportato e lo si deduce dal modo come sono state 
scritte le istruzioni. Il calcolatore da’ invece 
l'interpretazione che corrisponde al diagramma <b) sotto 
riportato, cioè’ il calcolatore si comporta come se si fosse 
scritto: 

IF e THEN IF b THEN il 




<b> 


ESERCIZIO 4.3. - Scrivere il testo precedente in modo che 
per il calcolatore corrisponda al diagramma (a) x soprs 
riportato, 
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4.2. I CICLI WHILE E REPEAT 


Il Pascal consente tre diverse strutture per i cicli. Di 
queste due sono proprie delle programmaiione strutturata; la 
terza serve soprattutto per ricerche in tabelle. 

Le prime due sono: 


REPEAT 

istruzioni 
UNTIL condizione 


cioè': RIPETERE istruzioni 

FINO A OLIANDO la con¬ 
dizione di arresto 
sia verifiestà. 


e 


UMILE condizione cioè’ 

DO istruzioni 


FINTANTO CHE la condi = 
zi one di continuazione 
e’ soddisfatte 
ESEGUIRE istruzioni. 


Si potrebbe pensare che: 

REPEAT e 

il; 
i 2 

UNTIL NOT cond. 


WHILE cond. DO 

REGIN il; 
i 2 

END 


siano del tutto equivalenti. Questo non e’ completamente 
vero. La differenza si manifesta quando si arriva al ciclo 
con le condizione d’arresto già’ soddisfatta (o con la 
condizione di continuazione non piu' verificata). 

In questo ceto con REPEAT le istruzioni del ciclo sono 
eseguite una volta, mentre con WHILE esse non sono eseguite 
del tutto. 

Questo diverso comportamento dipende dal fatto che con 
REPEAT il controllo per la continuazione si trova dopo le 
istruzioni del ciclo (controllo in code), mentre con WHILE 
questo controllo si trova prima delle istruzioni del ciclo 
(controllo in testa) e quindi ci si accorge subito che le 
condizione per l'arresto e’ già' verificata (confrontate con 
i diagrammi del Gap. 1). 


Notate, dal punto di vista della punteggiatura, che se con 
WHILE si ha piu’ di una istruzione da ripetere, si deve 
usare BEGIN...END. 

E’ . necessario, sia con WHILE che con REPEAT, che 
l'esecuzione delle istruzioni fondamentali del ciclo 
modifichi il risultato della condizione, altrimenti il ciclo 



durerà’ all’infinito. 

Esempio! Spesso si devono elaborare dei numeri man mano che 
si leggono. L'elaborazione deve continuare fino a quando non 
si, arriva alla fine del file. 

. Leggere dei numeri, uno per scheda, e calcolarne la 
somma. 


B : = 0 ; 

WHILE NOI EOF DO 

BEGIN R’EADLN < N)* 

S:= S + N 

END; 

WRITELN <’SOMMA = ’,S); 

Con alcuni calcolatori si dovrà' scrivere: WHILE NOT EOI" 
( INPUT ) DO... 

. Leggere dei numeri, uno per scheda, e stampare il piu’ 
p i c c o l o. 


MIN: -• MAXI NT ; 

WHILE NOT EOF DO 

BEGIN READLN < N ) 

IF N < MIN THEN MIN:=N 

END ; 

WRITELN ( ’ IL, MINORE « ’,MIN> 


L'algoritmo e' evidente; si comincia con un minimo 
provvisorio uguale a MAX1NT. Ogni volta che si trova un 
elemento minore, questo diventa il minimo 
provvisorio, fluendo il ciclo e' terminato questo diventa il 
minimo definitivo. Notate il valore iniziale di MIN con 
MAXINT; in tale modo al primo confronto esso verrà’ 
eliminato. Se si elaborano numeri reali, analogamente si 
deve porre inizialmente in MIN un numero che sia sicuramente 
piu' grande di tutti gli altri possibili, come, per esempio, 
MIN :=1. 0E20 . 


ESERCIZIO A.A. - Stampare le media di urie serie' di numeri 
letti da schede. 

ESERCIZIO 4.5. - Leggere dei numeri reaii positivi minori di 
10 elevato a 20, che si trovano uno per ogni scheda. 
Stampare il massimo ed il minimo dei numeri letti. 


Per tutti gli esercizi di questo tipo scrivete un 
programma completo, con le dichiarazioni, e provatelo su un 
calcolatore dotato di compilatore Pascal. 


Al 



Negli esempi si sono viste nidificazioni di controlli 
(test) e di cicli. E' permessa qualunque nidificazione. I 
cicli possono essere nidificati e possono essere mescolate 
le strutture REPEAT e WHILE. Questa e’ una delle ragioni 
della potenza del Pascal. Con la <=c cppato i a del BEGIN...END, 
una sequenza di istruzioni, per quanto sia complicata, 
diventa una istruzione composta e può' essere incorporata a 
sua volte in una istruzione complicata. 

Esempio: cercare il massimo comun divisore (P1CD) tra due 
numeri A e B, usando l’algoritmo che segue. Si suppone che 
sia A>B. Sottrarre B da A fino a quando si ha un nuovo A<B. 
A questo punto sottrarre A da B fino a quando si ha un nuovo 
B (nuovo A. Ricominciare il calcolo e terminarlo quando si 
ha nuovo B = nuovo A. Questo valore e’ il MCD cercato. 

PROGRAFI MCD; 

DAR A,B,X,Y:INTEGER; *X e Y servono per conser= 
BEGIN vare A e B* 

READ (A,Et); X:Ajf Y:=B; 

REPEAT 

WHILE A>B DO A : -• A-B; 

WHILE A<B DO B:= B-A; 

UNTIL A = B; 

WRITEL.N (’P1CD DI ’, X, ’ E ’, Y, ’ = ’,A) 

END. 

Abbiamo visto le strutture fondamentali della 
programmazione strutturata. Il Pascal offre, inoltre, altre 
strutture utili in alcuni casi. 


4.3. IL CICLO POR 


Riprendiamo in esame l’esercizio per il calcolo della 
media (Eserc. 4.4.), ma supponiamo che non sia conosciuto a 
priori il numero NB degli elementi di cui calcolare la 
media. Si potrebbe scrivere: 

BEGIN 

READLN (NB); 

S:= 0 ; CONT:=0 ; 

WHILE NOT (C0NT>NB> DO 

BEGIN READLN (N); 

S : = S+N; 

CONT:= CONT +1 

END; 
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Il Pascal consente di abbrevi ere il progredirne i nc orporendo 
in una sole frese le istruzioni di inizializzazione, 
incremento e controllo di CONT. Il programma diverte: 

READLN (NB); 

S : = 0 ; 

POR CONT : = 1 TO NB DO 
BEGIN 

READLN ( N ) ; 

S:= S+N 
END ; 

MEDIA:* 1 S/N; 

L>e quanto ebbiemo visto risulte che le strutture FOR si 
incerice di gestire completamente le variabile CONI 
(chiemete indice corrente). Queste strutture si legge cosi’: 
per CONT (indice corrente) = 1 (partenze) fino e NB (arrivo) 
(per valori interi consecutivi) fere. 

Le strutture assomiglia molto al FOR del Basic ed al DO 
del Fortren, con queste differenze: 

.Se il valore di partenza dell'indice e' già' maggiore 
del velore di arrivo quando si errive el ciclo, questo non 
viene eseguito, mentre nei due linguaggi sopra citati esso 
e’ eseguito almeno una volte sempre. Si può’ concludere che 
il FOR del Pascal e’ equivalente alla struttura UHILE, 

. La strutture e' meno potente, infetti e' limitate a 
valori interi e consecutivi dell’indice. E' sempre passibile 
arrangiarsi usando una variabile ausiliaria. Le strutture 
FOR e' stata implementata nel linguaggio soprattutto per 
scandire tabelle; nel seguito si vedranno degli esempi di 
questo tipo. 

Si devono dire ancora due cose: 

. Il ciclo FOR assomiglia molto al UHILE che abbiamo 
già’ visto meno che per un dettaglio; all’uscita dal ciclo 
l'indice corrente e’ indefinito nel Pascal standard, mentre 
con UHILE esso ha il valore di arrivo + 1. 

. Esiste un'altra forma per la struttura FOR: 

FOR li-- partenza DOWNTO arr i vo .DO..... 

dove I assume successivamente i valori: arrivo-1, 

arrivo-2,.... ; cioè’ corrisponde allo STEP -1 del Basic. 







ESERCIZIO 4.6. - Preparare una tavola della funzione SIN X 
per X che varia da 0 e 92 gradi, scrivendo su due colonne, 
cosi': 


************************* ************************* 
* X * SIN X * * X * SIN X * 


* 0 * * 

t>: . $ # 

* . * * 

* 45 * * 

*****************•>: ******* 


* 46 * * 

* . * * 


* 92 * * 

************************* 


Domanda: i valori di partenze e di arrivo possono essere 
dati sotto forma di espressione? 

Certamente, essi devono essere interi e vengono calcolati 
una volta sola all'inizio del ciclo. 


Ora cominciamo a occuparei di un programma sui numeri 
primi. Si tratta di stampare i numeri primi minori di un 
numero limite NLIPI, letto da una scheda. 

Seguiremo inizialmente un metodo molto semplice: cercare 
se il numero N (candidato ad essere primo) e' divisibile per 
ciascuno dei numeri minori di esso. Se si trova un divisore, 
questo significa che il numero non e’ primo. Eliminiamo e 
priori il numero 1, sicuramente primo. 

PROGRAM PRIM01 

VAR NLIM, N, I: INTEGER; *1 divisore di prova* 

F'R : BOOLEAN; * indica se N primo* 

E’.EGIN 

WRITELN <'NUMERI PRIMI’); 

READ (NI.IM) ; 

FOR N:~ 2 TO NLIM DO 
BEGIN 

PR: = TRUE; I:-l; 

WHILE < I<N-1 ) AND F'R DO 
BEGIN 

I : =■• I +1 ; 

IF N MOD 1=0 THEN F'R : =F ALSE 

END 

IF PR THEN WRITELN (N) 

END; 

WRITELN (’NON NE SONO STATI TROVATI ALTRI’) 
END. 

E’ semplice portare alcuni miglioramenti a questo 
programma. Questo modo di procedere serve per illustrare un 
metodo unni versale per lo sviluppo dei programmi, chiamato 
metodo di "raffinamento progressivo" . 

La programmazione strutturata rende facile questa 
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metodologia e questo e' uno dei suoi importanti vantaggi. 
PRIMO RAFFINAMENTO 

Il programma appena scritto trova 2 come numero primo, ma 
nel seguito non risulta piu' necessario controllare i numeri 
pari. Basterà’ modificare il programma come segue: 

. sacrificare il 2 e quindi cominciare con N:=3 
. utilizzare un UMILE al posto del FOR: 

WHILE N<NLIM DO 

. terminare questo ciclo con N:=N+2 
SECONDO RAFFINAMENTO 

E’ inutile provare con un divisore I>radice(N) infatti se 
esiste un divisore A>radice(N), questo significa che N - A*B 
con B<redice(N), e quindi B sarebbe già' stato trovato. Per 
questa ragione modificate il WHILE interno in: 

WHILE (I<~ROUND<SQRT <N))) AND PR DO. 


4.4. CASE 


Questa istruzione permette di realizzare dei controlli e 
piu' di due useite. 

Essa si presenta nella forma: 

CASE espressione-controllo OF 
valore 1: istruzione 1; 
valore 2: istruzione 2; 


valore n: istruzione n 
END ; 

Quando espressione-controllo assume il valore i, viene 
eseguita l'istruzione i <eventualmente con effetto nullo). I 
valori i devono essere delle costanti. Possono essere 
raggruppati piu’ valori, se il corrispondente trattamento e' 
il medesimo. 

Se espressione-controllo assume un valore che non e' 
compreso tra gli n valori considerati, il programma termina 
con segnalazione di errore. Espressione di controllo e 
costanti devono essere dello stesso tipo. 

Questa istruzione e' piu’ potente delle corrìspondenti in 
Fortran <G0T0 calcolato) e in Basic (QN x GOTO), dato che la 
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selezione avviene per valori che non devono essere per forza 
interi o per forza consecutivi. 

Esempio: 


Tra i dati caratteristici di un cliente di 
una lettera che denota lo sconto pattuito 
regola: 

. ’A’ sconto 10 X 

. ’B’ sconto 5X se l'importo supera 
altrimenti niente 
. ’C' sconto 10% 

. 'D' sconto 5% 


solito compare 
secondo questa 


1 mitione, 


VAR LC: CHARj 

MONTANTE, APAGARE: REAL* 


CASE LC 0F 
' A ’ , ’ C ’ : 
'B ' : 


’D 

END* 


sf i ne 


APAGARE:= 0. SMONTANTE 
BEGIN 

IF flONTANTE > 1000000.0 

THEN APAGARE : -0. 95*M0NTANTE 
ELSE APAGARE SMONTANTE 

END* 

APAGARE :=0.95*M0NTANTE 
della scelta* 


ESERCIZIO A.7. - (Puramente scolastico) Sostituire: 

IF c THEN il 

ELSE i2j con le struttura CASE. 

Nota: Alcune implementazioni del Pascal dispongono della 
clausole "0THERWISE": 

CASE X 0F 
XI : i 1 
X2 : i 2 

Xn : in 
OTHERWISE ixj 

Eie X non e’ uguale ad alcuno degli xi allora viene eseguito 
i x. 


A. 5. GOTO 


Come abbiamo già’ detto, ecco l’istruzione piu' contraria 
allo spirito del Pascal. Di fatto per scoraggiare al suo 




uso, l'istruzione deve essere contrassegnata da una 
etichetta che deve essere dichiarata in una istruzione 
LABEL. 

Esempios 

LABEL 1234; 


GOTO 1234; 

Il solo uso valido del GOTO in Pascal e' per creare una 
uscita quando nel c-iclo interno di una procedura si verifica 
una condizione del tutto eccezionale (spesso dovuta ad un 
errore). In sostanza e' necessario uscire dal ciclo prima 
del termine naturale delle iterazioni. 

Facciamo notare che alcuni compilatori Pascal (Texas 
Instruments) hanno introdotto una istruzione speciale per 
uscire dai cicli: la ESCARE, per evitare il GOTO. 


ESERCIZIO RIEPILOGATIVO 4.8. - Leggere una frese (le parole 
sono separate da spazi, tutta la frase sta su una scheda e 
termina con un punto). Stampare il numero di vocali ed il 
numero di consonanti presenti. 


ESERCIZIO RIEPILOGATIVO 4.9. - Risolvere l'equazione di 

secondo grado: 


A*X**2 + B*X + C 


0 . 





CAPITOLO 5 


T 1 F* I DI DAT I 


5.1. PREMESSA 


Lasciando ds parte le- procedure-, noi abbiano ore in nano 
tutti gli strumenti per costruire dei programmi, almeno per 
quanto concerne le istruzioni eseguibili. 

Sappiamo quanto serve per il trattamento elementare dei 
dati. Sappiamo leggere dei dati da elaborare, eseguire delle 
operazioni su di essi, e, cosa molto importante per 
l’utente, stampare dei risultati. 

Queste elaborazioni elementari formano delle sequenze di 
operazioni; sappiamo anche passare da una sequenza ad un 
altra, o, in certe condizioni, scegliere tra due sequenze 
possitili. 

Inoltre noi sappi iamo ripetere una sequenza di istruzioni 
un determinato numero di volte, fino a quando risulta 
verificata una condizione. Questa capacita' del calcolatore 
di ripetere la stessa sequenza di operazioni molte volte, 
dopo che il programmatore l’ha scritte una sola volte, e’ 
uno dei fattori che lo rendono potente. 


Per il momento noi sappiamo elaborare A tipi di dati, i A 
tipi standard del Pascal, che, come negli altri linguaggi, 
sono: gli interi (INTEGER), i reali <REAL), i booleani 
(BOOLEAN) e i caratteri <CHAR). 

Ebbene, e questo e' uno dei suoi pregi, il Pascal sa 
trattare molti altri tipi di dati. Alcuni tipi possono 
essere creati del programmatore per soddisfare le sue 
esigenze. 

Infatti, partendo dai tipi elementari di cui sopra 
<ehiamati tipi scalari), e' possibile creare dei tipi di 
dati strutturati che permettono di trattare in blocco un 
gran numero di dati elementari. E, dato che questa 
costruzione e’ recursiva, sera' possibile, a poco a poco, 
creare tipi di dati molto elaborati. 

Questo e’ uno dei grandi fattori delle potenza del 
linguaggio Pascal. In effetti, molto spesso, un problema e’ 
per tre quarti risolto quando si e’ trovata la forma adatta 
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per rappresentare i dati da trattare. Al contrario, senza il 
tipo di dati adatto, può’ essere necessario combattere con 
algoritmi molto complicati. 


Ci occuperemo ore di due categorie di tipi di dati. Per 
prima cosa dei tipi elementari <o scalari), dove si tratta 
un dato elementare alle volta. E’ il caso dei tipi standard 
del Pascal: un dato I di tipo intero permette di trattare 
con il nome I un solo numero intero. 


Dopo tratteremo la categoria dei tipi strutturati, dove, 
con il nome di una variabile, e’ trattata una grande 
quantità' di dati che hanno delle relazioni tra loro e che 
appartengono ciascuno si tipi scalari precedentemente 
definiti. 

Per esempio, il Pescai sa trattare delle tabelle (ARRAY) 
come il Fortran o il Basic. C’e' una piccola difficolta' per 
i principianti: le struttura può’ essere indifferentemente 
definita su una variabile o su un tipo. Si potrà' dire che 
la variabile PI e’ una tabella di, per esempio, 10 x 20 
interi. Oppure il tipo matrice potrà' essere definito come 
una tabella di 10 20 interi e poi dire che la variabile PI 
appartiene al t i p*o matrice. 

Infine, questo concetto di tipo e' cosi’ potente, che il 
Pascal vi fa rientrare il concetto di file ("file" e' un 
tipo strutturato particolare, vedi Cap. 7) e le gestione 
dinamica dei dati (con il tipo puntatore, vedi Cap. 8). 

Naturai mente le definizioni dei tipi si fanno con delle 
diehiaraz i oni particolari, le diehiarazioni TYPE. La 
dichiarazione TYPE attribuisce un identificatore, il nome 
del tipo, ad una descrizione del tipo stesso, cioè' di dati 
che possono essere qualificati ..urne appartenenti a quel 
tipo. 

Vediamo ora i tipi scalari. 


5.2. TIPI SCALARI 


L’uti1izzetore può’ definire un tipo scalare non standard 
semplicemente definendo il valore che può’ assumere un 
oggetto appartenente a quel tipo. 

Per esempio, se si vuole definire il tipo booleano, esso 
e' un dato che può’ avere il valore TRUE (vero) o FALSE 
(falso). 
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In Pascal ci sono due «odi pei" definire un tipo scalare! 
la semplice lista dei possibili valori, o la definizione di 
un intervailo per mezzo dei valori di un tipo già' 
precedentemente definito. 


5.3. TIPI DEFINITI MEDIANTE LISTA 


Viene fornite la lista dei simboli e delle costanti che 
fanno parte del tipo: 

TYPE ANIMALE = (CANE, GATTO, VACCA, CAVALLO); 

GIORNI = (LUNEDI', MARTEDÌ', MERCOLEDÌ', GIOVEDÌ', 
VENERDÌ', SABATO, DOMENICA); 

Nell'esempio precedente, CANE diventa un nome di costante 
e questa costante e' uno dei valori permessi nel tipo 
ANIMALE. Sara' allora possibile scrivere! 

VAR BESTIA ! ANIMALE 
BESTIA s= CANE 

IF BESTIA = VACCA THEN_ 

La cosa piu' interessante della definizione di tipo e' che 
il Pascal effettua ogni volta delle verifiche di conformità' 
sul tipo. Cosi', se, per errore, si scrive: 

BESTIA MERCOLEDÌ'; 
viene segnalato un messaggio di errore. 

Gli elementi che appartengono ed un tipo cosi' definito 
vengono ordinati in modo conforme alla definizione iniziale. 
Cosi' nell’esempio precedente: 

CANE < GATTO 

GIOVEDÌ’ > LUNEDI’ 


ESERCIZIO 5.1. -• Duale sare’ le stampe ottenute da: 

M := MERCOLEDÌ' ; D := DOMENICA; 

WRITELN (D<M); 

Quel e diehiarezione e’ necessarie in questo programma? 


Le funzioni ORD, PRED e SUCC sono valide per gli elementi 
del tipo definito mediante lista. 
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ORO e' il numero d'ordine dell'elemento nella lista degli 
elementi del tipo, cominciando da 0. Cosi': 

ORO (GATTO) = 1, ORD (LUNEDI') = 0 

SUCC e’ l'elemento seguente: 

SUCC (GATTO) = VACCA 

F'RED e’ l’€>lemento precedente: 

PRED (GATTO) = CANE 

Attenzione: SUCC (dell'ultimo) e PRED (del primo) non sono 
definiti. 

Si possono realizzare dei cicli come i seguenti: 

VAR I : GIORNO; 

FOR I « MARTEDÌ’ TO SABATO DO.... 

Analogamente per UHILE: 

WHILE 1 < SABATO DO 

BEGIN 


I := SUCC (I) 

END; 

quest'ultimo funziona dato che la valutazione di SUCC e’ 
sempre possibile. Se si fosse scritto: UHILE I <= DOMENICA, 
si sarebbe avuto un errore. 

Si vede dunque quale flessibilità’ fornisce questa 
possibilità' del Pascal di definire tipi di oggetti secondo 
le necessita' dell'utilizzatore e di poter trattare questi 
tipi con le operazioni standard del linguaggio. 

Esiste pero’ una limitazione che "demolisce" quasi tutto 
l'edificio. Supponete che dopo aver scritto: 

VAR K : GIORNO; 

K := MARTEDÌ’; 

voi tentiate di scrivere: WRITE (K). Non ottenete MARTEDÌ’. 
Cioè' o non otterrete alcunché’ o otterrete un messaggio 
di agnostic o. 

Analogamente, in lettura, un nome di costante come 
MARTEDÌ' non potrà’ essere presente su una scheda; cioè’ non 
si potrà' avere: 


VAR J : GIORNO 



READ < J); 


e leggere ds una schede MARTEDÌ’. 

Vedremo piu' eventi come si può' superare queste 
difficolta' usando une catene di ceretteri. Il fatto di 
dover ricorrere e questo limite molto l'interesse dei tipi 
definiti mediente liste. 

Un’ultime osservazione: une stesse costente non può’ 
essere assegnate a due diversi tipi; cosi' non si può' 
scrivere : 

TYPE GIORNO = (LUN, MART, MERO, G10V, VEN, SAB, DON); 

WEEKEND = (SAB, DOM); 

questo non e’ consentito. 

I tipi definiti mediente intervallo ci forniscono le 
soluzione dei problemi ore posti. 


5,4. TIPI DEFINITI MEDIANTE INTERVALLO 


Un tipo può' essere definito valido per i valori contigui 
di un intervallo per mezzo dei valori di un tipo 
precedentemente definito. 

Esempio: 

TYPE ANNI = 0...120: 

LAVORATIVI = LUN...VEN; 

WEEKEND = SAB...D0M; 

Non e' possibile, disgrezietemente, definire un intervallo 
di numeri resii. 

L’interesse di una diehisrszione di questo tipo, qualora 
si sappia e priori che il tipo di dati considerati non deve 
uscire ds un intervallo noto, e' di procurare un messaggio 
di errore in caso contrario. 

Esempio: Durante l’acquisizione di dati riguardanti degli 
individui, in particolare la loro età', se si definisce: 

VAR ETÀ' : ANNI; 

e 1’operatore scrive 150 invece di 15, si ha un messaggio di 
errore. 


59 



Con un altro linguaggio di programmazions sarebbe stato 
necessario introdurre un controllo esplicito sulle età' 
introdotte. Infatti non possono essere accettati dati errati 
negli are bivi. 

Discutiamo il valore di questa possibilità’ in Pascal. 
Essa evita di mettere un controllo esplicito ogni volta che 
si riceve una variabile del tipo considerato, me bisogna 
pensare a definire il tipo intervallo. 

Cosa succede in caso di errore? 

Con il tipo definito dal Pascal il programma si ferma con 
un messaggio di errore. Con un controllo esplicito di 
veridicità' il programma può' prendere una decisione 
opportuna senza fermarsi. Guest'ultimo comportamento e’ di 
gran lunga preferibile in fase di acquisizione dei dati: in 
caso di errore di battitura non si deve arrestare il 
programma, bisogna inviare un messaggio all'operatore 
chiedendogli di correggere il dato. 


ESERCIZIO 5.2. - Definire un tipo LETTERA e un tipo CIFRA. 

Abbiamo appena visto due possibilità' del Pascal a priori 
seducenti, ma per le quali sono state messe in evidenza 
alcune limitazioni. 

F'rima di passare ai tipi strutturst i , facciamo un' ultima 
precisazione. 

Se un tipo deve essere utilizzato una sole volta (cioè’ in 
una sola diehiarazione MAR), e' inutile attribuire un nome 
al tipoj basta definirlo nella diehiarazione VAR, cosi’: 

MAR ETÀ' : 0...120; 


5.5. TIPI STRUTTURATI 


Siamo ore arrivati ai tipi di dati dove un oggetto e’ 
formato da piu’ elementi. E’ proprio qui che la potenza del 
linguaggio e l’immaginazione del programmatore possono 
essere pienamente utilizzate. 

Il primo tipo strutturato che esamineremo e’ la tabella 
(ARRAY). Esso e’ il solo che ha un equivalente in Fortran e 
in Basic, ma in Pascal ha alcune possibilità’ in piu’? in 
particolare l'assegnazione dei valori a ciascun elemento 
della tabella mediante una sola istruzione. 

Il tipo che esamineremo dopo e’ il RECORD. Diversamente 
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dalla tabella, esso consente di raggruppare elementi di tipo 
diverso. Esso he un equivalente in F'L/1 <te "strutture") e 
in Cobol <i livelli gerarchici dei dati), ma non in Fortran 
e in Eesic. 

Infine esamineremo il tipo SET (insieme) che e' proprio 
solo del Pascal. Nei capitoli seguenti vedremo poi il tipo 
FILE (file di dati) e un suo caso particolare TEXT, e il 
tipo POINTER (puntatore> che permette di gestire i dati in 
modo dinamico. 

Tutti i tipi strutturati si costruiscono come 
raggruppamenti di elementi che appartengono a un tipo 
scalare precedentemente definito. Si dice che questo 
costituisce il tipo base della struttura. 

Le costruzione può’ essere disposta a piani o 
gerarchicizzata : si costruirà’ un tipo molto complesso a 
poco a poco, raggruppando degli elementi, poi raggruppando 
dei gruppi,ecc... 


5.6. TYPE ARRAY 


Supponiamo che si vogliano trattare dei vettori nello 
spazio a tre dimensioni. E' naturale che si desideri, sia 
raggruppare le tre componenti di un vettore e definire il 
vettore V, che accedere a una componente Vi. 

Il Pescai, come del resto il Fortran, il Basic e altri 
linguaggi, io consente. Si ha tuttavia una prima differenza. 

In Fortran o in Basic: si deve dichiarare nello stesso modo 
ciascun vettore: 

Din V(3) , W < 3)_ 

In Pascal si può' fare cosi': 

VAR V : ARRAY II.. 33 0F REAL.; 

W : ARRAY LI..33 0F REAL* 

ma se si hanno piu’ vettori dello stesso tipo, si può’ 
creare un tipo "vettore a 3 dimensioni": 

TYPE VECT3 = ARRAY L1..33 0F REAL; 
e poi: 

VAR V : VECT3; 

W : VECT3; 
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(Notate l'uso dei : e di = ). 

Una componente del vettore si individua con: 

V C23 oppure V CI3 

e le parte entro le parentesi quadre si chiama indice. 

Per i sistemi che non dispongono delle parentesi quadre si 
utilizza "(." e •*.)". 

E' possibile utilizzare una componente: 

X : = 3*VC23 o assegnargli un valore: 

VC23 := Y -• EXP (U) 

Le tabella può’ anche essere- richiamata nella sue 
totalità’ in due operazioni: 

- l’assegnazione V : = W 
ricopia il vettore W nel vettore V; 

- le comparazione (solamente per = o diverso (<>)>: 

IF V = W THEN... 

In tutti i casi bisogna che i tipi concordino, cioè' 
abbiano le stesse dimensioni e lo stesso tipo di base. 


Per quanto riguarda le operazioni di lettura e scrittura 
il comportamento dipende in buona misura dal sistema che si 
ha e disposizione. Si devono distinguere le tabelle di 

numeri e le stringhe di caratteri: 

TYPE CHA1NE = ARRAY E1..223 OF CHAR; 

VAR MESSAGGIO : CHAIN; 

I possibili comportamenti sono i seguenti: 

1 - Non e’ possibile ne' la lettura ne' la scrittura 
delle tabelle in blocco. 

2 - L.a lettura e/o le scritture in blocco e’ possibile 

solo per le tabelle di numeri. Si deve notare che il 
problema e’ piu’ difficile per le stringhe di caratteri e, 
in conseguenza, si ha l'impossibilita' di una lettura in 

blocco di una stringa nel Pascal standard (in effetti e’ 

impossibile sapere se gli spazi iniziali di una scheda 

devono essere considerati o meno). Per contro e’ sempre 
possibile stampare una stringa di caratteri in blocco: 
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URITE ('STRINGA DI CARATTERI'); 
o MESSAGGIO : = 'STRINGA DI CARATTERI’} 

WRITE (MESSAGGIO)} 

3 - Nel Resesi UCSD, dove il tipo STRING e’ stenderò, e' 
naturalmente possibile leggere e scrivere un oggetto di tipo 
STRINO. 


In tutti i cesi, le letture o le stampe può' essere sempre 
ottenute elemento per elemento con l'siuto di un ciclo POR: 

FOR I = 1 TO INDICEMAX DO 
BEGIN 

READLN (TAB CI3)} 

WRITEl.N (TAB CI3> 

END} 


ESERCIZIO 5.3. - Suggerite le dichierezioni de premettere 
eli'esempio sopra riportato. Guanti elementi si leggono de 
ogni schede? 


Questo modo di procedere e’ il solo che permette di 
controllare al meglio ciò' che succede elle fine delle 
linee, sie in ingresso che in uscite. 

Questo e' il modo utilizzato dal Basic standard. Il Basic, 
se possiede le operazioni MAT, può' operare in blocco in 
tutti i modi sulle tabelle. Esso ve quindi piu’ lontano del 
Pesce! in questo. 


ESERCIZIO 5.4. - Supponiamo che gli elementi delle tabelle 
precedentemente citata, TAB, siano 5 a 5 sulle schede dei 
deti. Stampateli 10 per ogni linee nel formato: 

-sx.yyy-sx.yyy-..... dove - sta per spezio e 

s per segno. 


Negli esercizi che seguono supporremo che, salvo esplicita 
indicazione, sieno possibili l’immissione e le stsmpe delle 
tabelle, per mezzo di un metodo disponibile sul Pascsi in 
uso. 


Ma noi non sbbiamo encors visto ciò’ che rende origineli 
le tabelle in Pascal. Se riguardiamo la diehiarazione di 
tebella dell’inizio del paragrafo, vediamo che tutto avviene 
come se noi avessimo scritto: 
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TYPE VETTORE = ARRAY [tipo intervallo] OF REAL; 

Questo e' precisamente quello che si può’ fare. F'iu’ 
generalmente, e’ possibile indicizzare per mezzo di un 
qualunque tipo intervallo o liste: 

TYPE DIMENSIONI = 1..10; 

GIORNO = (LUN, P1ART, PIERO, GIOV, VEN, SAP, DOPI ) ; 
VETTORE = ARRAY [DIMENSIONI3 OF REAl. ; 

VAR V : VETTORE; 

SI LAVORA : ARRAY [GIORNO] OF BOOL.EAN ; 

J : GIORNO; 

e si potrà’ avere: 

FOR J := LUN TO VEN DO 
BEGIN 

SI LAVORA [J3 := TRUE 

END; 

SI LAVORA CSAB3 := FALSE; 

SILAVORA [DOPI] := FALSE; 


IF SILAVORA [J3 THEN ... 

Questo mostre bene come sia comodo questo modo di usere le 
tabelle. Trattiamo nel seguito alcuni esempi per acquistare 
un po’ di pratica. 


5.7. PRODOTTO SCALARE DI DUE VETTORI 


La formula matematica e’ la seguente: 


n 

U.V = E u. v. 

i=l 1 1 


dunque : 


CONST N = 20; 

TYPE DI PIENSIONI = 1..N; 

VETTORE = ARRAY IDIP1ENSI0NI3 OF REAL; 
VAR U, V : VETTORE ; 

UV : REAL; 

I : DI PIENSIONI ; 

UV := 0; 

FOR I := 1 TO N DO 
BEGIN 

UV := UV + UC13 * VC13 
END; 
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5.8. RICERCA DI UN ELEMENTO IN UNA TABELLA 


li i cerca delle presenze nelle tabelle TAB del valore X e 
del valore corrispendente IT dell'indice. Se l'elemento non 
e’ presente, le risposte può’ essere, per esempio, IT = N+l 
(N definisce la dimensione della tabella). 

Prendiemo come esempio une tebelle di caratteri che 
costituisce una parola. Ricerchiamo se la lettera ’K' e' 
presente. 


CONST N = 10; «perola lunga el massimo 10 lettere* 

X = 'K'; «lettera cercata* 

TYPE DIPI - 1..N; 

PAROLA = ARRAY EDIMZI OF CHAR ; 

VAR TAB : PAROLA; 

I : DIN; 

IT : INTEGER; 

.... «qui si Metteranno le istruzioni per 

.... la lettura di TAB* 

IT := N+ 1 ; 

FOR I = 1 TO N 00 
BEGIN 

IF TAB CI ZI = X THEN IT := I 
END; 

IF IT <= N .THEN WRITELN ('SI HA UN K PER INDICE = ’,IT) 
ELSE WRITELN ('NON SI HA UN K’) ; 

Questo programma esempiifice le "ricerca sequenziale". 
Essa non e' la piu' efficiente, ma viene usata spesso, 
soprattutto per i file. 

Prime di esporre un metodo piu' efficiente (applicabile 
solo alle tabelle ordinate), corregeremo due difetti del 
programma precedente. 


ESERCIZIO 5.5. -■ Nel programma precedente, se si hanno piu’ 
lettere ’K' nella parola, IT mantiene il valore relativo 
all'ultima ripetizione delle lettera. In certi cesi sere’ 
richiesto il valore relativo alla prima apparizione della 
lettere cercete. Per questo, restendo .nell'ambito delle 
programmazione strutturata, si deve introdurre una variabile 
booleene TROVATO e introdurre un ciclo UNTIL. TROVATO (non 
vai la pena di continuare a scandire la tabella quando 
quello che si cercava e’ già’ steto trovato). Questo ve 
bene, ma se l’elemento e' assente? Il metodo consiste nel 
porre une "sentinelle", cioè’ un elemento uguele el valore 
cercato nel rango N+l (il tipo dovrà' essere modificato in 
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conseguenza). A questo punto lo stesso test determina 
l’arresto ed il fatto che l’elemento cercato e' stato 
trovato. Provate. 


5.9. RICERCA DICOTOMICA 


Supponiamo di avere una tabella di 100 elementi, ordinati 
in modo crescente. Dogliamo sapere se e’ presente un 
elemento uguale a 38.5; attenzione, il controllo non può’ 
essere fatto per perfetta uguaglianza trattandosi di numeri 
reali, e cause della limitate precisione di cifre dei 
calcolatori. I controlli vanno realizzati nella forma; 

ABS ( X ~ Y ) < 2 oppure (X > Y-T) AND <X< Y+T) 

Noi procederemo, passo a passo, dividendo l'intervallo di 
ricerca per 2. 

Per esempio, nel primo passaggio noi esamineremo 
l'elemento TAB 1503. Se TAB 1503 = X il procedimento e' 
terminato. Se invece TAB 1503 > X, allora si deve continuare 
a cercare dall'indice 1 all'indice 50, e se TAB 1503 < X si 
deve continuare a cercare dall’indice 50 all’indice 100. 

C0NST N = 100; 

X = 38.5; 

DAR INF, SUP, IT ; INTEGER; 

TROVATO : B00LEAN; 

TAB : ARRAY 11..N3 0F REAI..; 

INF := 1; 

SUP := N; 

TROVATO := FALSE; 

REPEAT 

IT ;= (INF + SUP) DIV 2; «nuovo limite* 

II- (TAB CITI > X-0.0001) AND (TAB CITI < X+0.0001) 
THEN TROVATO : = TRUE 
ELSE 

IF TAB 1IT3 < X THEN INF != IT + 1. 

ELSE SUP : = IT-.1 

UNTIL TROVATO OR (INF > SUP); 


ESERCIZIO 5.6. - Trovare l’elemento massimo in una tabella 
di numeri interi positivi (stesso metodo dell'eserc. 4.5.). 


66 



5.10. ORDINAMENTO PER SMISTAMENTO 


Noi non possediamo ancora tutte le informazioni che ci 
permetterebbero di comprendere in tutti i suoi dettagli il 
programma dell’esercizio 2.1.. Tuttavia noi comprendiamo il 
metodo nelle sue grandi linee. 

Si tratta del metodo dell'ordinamento a bolle; per mettere 
in ordine una tabella si se.ambiano tra loro due elementi 
consecutivi se essi non sono in ordine. Si prendono in 
considerazione tutte le coppie possibili durante una 
ispezione della tabella e se si e' avuto almeno uno scambio 
si inizia una nuova ispezione. 

Questo metodo e' poco efficace per tabelle di grandi 
dimensioni. Allora noi cercheremo di introdurre un nuovo 
metodo, il metodo di Shell, dal nome del suo inventore 
(Shell Sort- in inglese). 

Shell e’ partito dalla seguente osservazione: quello che 
non va bene nel metodo di ordinamento a bolle e’ che 
l’intervallo tre gli elementi scambiati e’ sempre piccolo; 
esso e' sempre uguale a 1. Supponiamo, mettendoci nel caso 
piu’ favorevole, che l’elemento maggiore si trovi in testa 
alla tabella alla partenza. Esso deve trovarsi in fondo alla 
tabelle ella fine del1'ordinamento. Esso arriva in fondo 
dopo N-.1 confronti e N--1 scambi, mentre se si usassero degli 
intervalli di N/2 basterebbero 2 confronti e 2 scambi. 

Il metodo di Shell consiste nel considerare all'inizio dei 
grandi intervalli tra gli elementi scambiati e nel diminuire 
poi gli intervalli. Il primo intervallo considerato sara' 
N/2 <N grandezza della tabella), poi esso sara’ diviso per 2 
ogni volta (fino a quando diventa uguale a 1). 

Per ogni valore dell’intervallo e’ realizzato una specie 
di ordinamento a bolle dove il confronto si opera tra TAB 
II] e TAF. Il + SCARTO] includendolo in un ciclo che opere 
sull'intervallo variabile. 

PROGRAM SHELL; «ordin. di Shell in modo crescente* 

CONST NB - 50; «numero degli elementi* 

VAR SCA, «indicatore di scambio* 

SCARTO, «scarto tra gli elementi confr.» 

I : INTEGER; 

TAB : ARRAY II1..NB] 0F INTEGER; 

PROCEDURE SCAMBIO; 

VAR X : INTEGER; 

BEGIN 

X : -- TAB II3; 

TAB CU TAB CI+SCART03; 

TAB LI+SCARTO] := X 
END; «fine dello scambio* 
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BEGIN «inizio programma principale* 

WRITELN (’TABELLA NON ORDINATA’); 

POR I s= 1 TO NB DO 
BEGIN 

READ (TAB 11 3 ) ; 

WRITE (TAB 
END ; 

WRITELN; WRITELN; 

SCARTO := NB; 

REF'EAT 

SCARTO ;= SCARTO 
REF'EAT 

SCA := 0; 

POR I :=• 1 TO 
BEGIN 

IF TAB 


END 

UNIIL SCA = 0 
UNTIL SCARTO = 1; 

WRITELN ('TABELLA ORDINATA’); 

FOR I := 1 TO NB DO WRITE (TAB CIJ : 5); 
END. 


ESERCIZIO 5.7. - Partendo delia tabella contenente gli S 
elementi; 9, 8, 4, 6 , 3, 1, 2, 5; fate manualmente un 
ordinamento in ordine crescente usando il metodo e bolle e 
p«o i rifatelo usando il metodo di Shell. Confrontate il 
numero di confronti e di scambi che avete operato. Non 
dimenticate l'ultimo passaggio nel quale non operate scambi. 


m : 5) 


«inizio ordinamento* 

«ciclo sui diversi scarti* 
DIV 2; 

*ciclo sui passi* 

NB -- SCARTO DO 

LI ZI > TAB LI «SCARTO 3 
TMEN BEGIN 

SCA := 1; 

SCAMBIO 

END 


Abbiamo insistito su questi algoritmi, per prime cosa 
perche', anche se il Pascal ha altri tipi di dati 
strutturati, le tabella e’ assolutamente fondamentale, e poi 
perche' questo ci ha permesso di mettere in evidenza come il 
linguaggio si presti bene per sviluppare questi algoritmi. 

Ma abbiamo ancora qualcosa da vedere circa le tabelle. 


5.11. TABELLE PACKED 


In tutte le dichiarazioni di tabelle si può' aggiungere 
l’attributo PACKED (compatte). Esempio: 



TYPE ALFA = PACKED ARRAY Ci..101 0F CHAR; 

Una tabella packed può' tssfre usata esattamente coni* una 
tabella normale. Ls differenza sta solo nello spazio di 
memoria occupsto. 

Si ss eh* un csrett*r* occupe 8 bit. Supponiamo di 
utilizzar* uns macchi ns 3 32 bit coro* un 360. S* dichiariamo 
un ARRAY [ ] OF CHAR normale, ogni c:srett*r* sere' messo in 
uns parola; s* lo dichiariamo PACKED i caratteri saranno 
raggruppeti A per parola. 

Quindi le parola chiave PACKED permette di ri spermi ere 
memoria. Questo pero' va a scapito della velocita' di 
calcolo; infatti, per accedere ed un elemento di una tabelle 
compatta, si deve trovare dapprima in quale parola si trova 
l’elemento e poi individuarlo all’interno della perde. 

La tabella deve essere quindi impaccata e disimpaccata. 
Esistono due procedure, le PACK e la UNPACK, che consentono 
di farlo. Esempio: 

VAR A : ARRAY LI..NI OF TYPEDEA; 

PA: PACKED ARRAY LI..NI OF TYPEDEA; 

UNPACK <PA,A,I) equivalente al ciclo: 

FOR K=1 T0 N DO AEK-1+I3 : = PA CK3; 

F'ACK <A,I,F'A) equivalente el ciclo: 

FOR K= 1 T0 N DO PA LK3 := A EK-1+I3; 


ESERCIZIO 5.8. - Non basta fare A:= PA; ? 


NOTA: Le costanti stringa di caratteri (es. 'BUONGIORNO') 
sono del tipo PACKED ARRAY L1..num-car.1 OF CHAR. 

Ne consegue che se si ha: 

VAR U : ARRAY Li..103 OF CHAR; 

V : PACKED ARRAY LI..103 OF CHAR; 

U 'BUONGIORNO' oppure IF U = 'BUONGIORNO'- 

non e’ corretto, mentre: 

V := 'BUONGIORNO' oppure IF V = 'BUONGIORNO'_ 

e' corretto. 

Ritornando al problema della lettura delle tabelle, 
notiamo che la lettura delle stringhe di caratteri risulta 
piu’ semplice se la variabile e' PACKED. 
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5.12. TABELLE MULTIDIMENSIONALI 


L ’ elemento base di una tabelle può' essere una tabella: 

TYPE VETTORE = ARRAY C1..N3 OF REAL; 

MATRICE = ARRAY E1..N3 OF VETTORE ; 

VAR V ! VETTORE ; 

M : MATRICE; 

Un e 1 amento della matrice si indics cosi’: M UH L'J3 := 3; 

M CJ3 e’ allora un vettore che fa parte della matrice, 
considerato in blocco. 

Si può’ scrivere: (1 CJ3 := V; 

Poter fere questo rende il Pescel superiore el Basic e al 
Fortran, ma esso può’ procedere cosi’ serio per l’ultima 
dimensione introdotte, cioè’ per ARRAY OF piu’ a sinistre in 
una dichiarazione del tipo: 

TYPE X = ARRAY ES3 OF ARRAY ES3 OF ARRAY E SD 

Un linguaggio come l’APL consente di fare cosi’ per tutte 
le dimensioni. 

M CI 3 LJ3 può’ eltrettento chiaramente essere scritto: 

M C I, JI. 

Le metrice può’ essere dichiarata nelle forma: 

TYPE MATRICE = ARRAY C1..N, 1..N3 OF REAL; 


ESERCIZIO 5.9. -■ Avendo due matrici LI. ..N, 1..N3, A e B, 
calcolare il loro prodotto C. Si ottiene una matrice E1..N, 
1..N3 dove il generico elemento e’: 

N 

C z A * B 

IJ K=1 IK KJ 

Questo esercizio e’ classico. Si he un doppio ciclo per 
gli indici I e J per ottenere tutte gli elementi C. 
All’interno di esso vengono fissati I e J e viene calcolato 
un valore C con un nuovo ciclo dovè l'indice e' K. 
Riportiamo il programma senza le istruzioni di ingresso e 
useita. 

PROGRAMMA PRODMATRICI; 

CONST N = 10; 
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TYPE MATRICE = ARRAY C1..N, 1..ND OF REAL; 

VAR A, B, C : MATRICE,- 
I, J, K : l..Nj 

BEGIN 

FOR I := 1 TO N DO 

FOR J i= ITO N DO 
BEGIN 

C [ I , JD := O.O; 

FOR K := 1 to N DO 

C CI,J3 ;= C [I,J3 + A LI,K3 * B CK,JD 

END 

END. 

Con questo programma viene messa in evidenze una lacuna 
del Pascsi in confronto sd altri linguaggi. Non e' possibile 
avere dimensioni variabili. In questo caso sarebbe stato 
conveniente poter scrivere una PROCEDURE generale valida per 
il prodotto di qualsiasi coppia di matrici. 


ESERCIZIO 5.10. - Preparare un programma che trasformi una 
matrice A nella sua trasposta : 

T T 

A dove A = A 

IJ JI 


Proponiamo una soluzione al problema delle costanti 
simboliche che formano un tipo. Ci serviamo di una tabel’a 
di stringhe di caratteri F’ACKED. 

TYPE STRINGA = PACKED ARRAY CI..33 OF CHAR; 

GIORNO = (L.UN, MAR, MER, GIO, VEN, SAB, DOM); 
NUMGI0RN0 = ARRAY CGI0RN03 OF STRINGA; 

VAR OGGI : GIORNO; 

I n i z i a l i zzaz ione : 

NUMGIORNO IL UNII : 

NUMGIORNO CMAR3 : 

NUMGIORNO EDOMI : 

Si potrà’ scrivere: 

WRITELN (NUMGIORNO [OGGIDÌ; 


’ LUN ’ ; 
= 'MAR'; 

* ’DOM’ ; 
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5.13. TYPE RECORD 


Per mezzo di uns tabelle si possono raggruppare N elementi 
dello stesso tipo, per esempio, l'ammontare del fatturato 
negli ultimi 10 anni o i nomi di tutti i clienti. Spesso e' 
pero' necessario raggruppare elementi di tipo diverso. 

Questo e' normalmente il caso per le registr szioni su 

file. 

Per esempio, sera' necessario avere per ogni cliente: 

- il numero identificabivo 

- i1 nome 

- I ' i nd i r i zzo 

- il codice postale 

- il nome del rappresentante 

- se gli e’ accordato uno sconto 

- il volume d'affari nell'anno precedente 

- il volume d'affari nell'anno in corso. 

Il Pascal dispone del tipo RECORD per realizzare questo 
(RECORD vuole proprio dire "registrazione"). Per il ceso ora 
visto la diehiarazione in Pascal sara' la seguente: 


TYPE 

CLIENTE = RECORD 






NUMERO 

INTEGER) 





NOME 

F'ACKED ARRAY 

CI. .103 

OF 

CITAR ) 


INDIR 

F'ACKED ARRAY 

LI..303 

or 

CFIAR} 


CPOST 

F'ACKED ARRAY 

i: 1. .203 

OF 

CITAR) 


NUMRAF'R 

INTEGER) 





SCONTO 

B00LEAN) 





VOI. PREC 

RE AL } 





VOLATT 
END ) 

RE AL 




Sara ’ 

allora possibile scrivere: 





VAR CLI : CLIENTE} 

e un elemento di CLI potrà’ essere ottenuto cosi’: 

CLI.NOME := 'ROSSI'} 

IF CLI.SCONTO THEN... 

Questo può' essere combinato con un indice: 

TYPE IMPRESA » ARRAY LI..503 OF CLIENTI) 

VAR II : IMPRESA) 

A questo punto il volume d'affari del quinto cliente 
dell'impresa II e': 
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Il C53.V0LATT 


Il primo carattere del nome di questo cliente e': 
Il E53.NOME C 1 3 


{ESERCIZIO 5.11. - Una linee di un buono d’ordine comprende: 

Articolo 20 caratteri 

Prezzo uniterio reale 
Quantità' intero 

Ammontare reale 

Scrivete la dichiarazione di tipo necessaria. 


5.14. ISTRUZIONE WITH 


L'inizializzazione di un intero RECORD e' un po’ pesante: 
CI..[.NUMERO :--- 1000; 

CL. I . NOME := 'ROSSI’; 

CLI.INDIRIZZO : = '_'; 

CL1.CP0ST := ’....’; 

CLI.NUMRAPR := 10; 

CLI.SCONTO : = TRUE; 


L’istruzione WITH consente di ripetere CLI (o un altro 
qualificatore); basta scrivere: 

WITH CLI DO 
BEGIN 

NUMERO := 1000; 

NOME := 'ROSSI'; 


VOLATI := ... 

END ; 

Questo e’ utile soprattutto se si hanno parecchi livelli 
di RECORD e quindi piu' qualificstori: 

IMPRESA.REPARTO.SERVIZI 0.CLI.NOME : =_ 


Basterà' allora scrivere: 
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WITH IMPRESA, REPARTO, SERVIZIO, GLI DO 
BEGIN 

NOME :=.... 

END; 


5.15. REGISTRAZIONI CON VARIANTI 


E’ possibile che tutte le registrazioni appartenenti alla 
stessa serie non abbiano esattamente le stesse struttura. 
Prendiamo in esame, come esempio, una lista di impiegati. 

Sara’ senz’altro presente il loro nome e la loro data di 
nascita; poi un codice che specifichi la situazione 
f am i l iare: "C" per celibe, "M" per coniugato, "D" per 
divorziato, "V" per vedovo. Nel caso "celibe" questo sara’ 
sufficiente. Nel caso "coniugato", comparire’ anche il nome 
del coniuge e la data del matrimonio. Anche nei casi 
"divorziato" o "vedovo" comparire’ una data. 

In Pascal si fara' una dichiarazione di questo tipo: 

TYPE NNN = PACKED ARRAY LI..103 0F CHAR; 

DATA = RECORD 

GG : 1..31 ; 

(1M : 1. .12; 

AA : 0..9V 
END; 

inPIEGATO = RECORD 

COGNOME : NNN; 

NOME : NNN; 

DATNA : DATA; 

CASE STAFAM : CHAR OF 

’ C ’ : ( ) - 

’M’ : (COGNCONIUGE : NNN; 

NOMCONIUGE : NNN; 

DAT AMATR : DATA); 

’D’ , ’V’ : (DATADV : DATA) 

END; 

VAR OCCUP : IMPIEGATO; 

Notate come la parola CASE determina il campo di 
variabilità' di STAFAM ed il suo tipo. L'istruzione di 
utilizzo potrà’ essere del tipo: 

READ <IMPIEGATO) ; 

IF IMPIEGATO.STAFAM = ’M’ THEN 

WRITELN <’DAT A MATRI MONI 0',IMPIEGATO.DATAMATR) 
ELSE 

WRITELN (’NON CONIUGATO’); 
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Notate che se l'implegato non e' coniugato non si ha 
possibilità’ di accesso a una DATAP1ATR. Si deve esaminare 
sempre il campo di variabilità’ per sapere a quali campi e' 
possibile accedere. 


ESERCIZIO 5.12. - Come si dovrebbero modificare le 
istruzioni appena viste se si fosse in presenza di un WITI-I 
IMPIEGATO DO? 


ESERCIZIO 5.13. - Selezionate solo sul mese del matrimonio 
ed apportate le conseguenti modifiche. 


Disponiamo quindi di una struttura di dati molto potente 
che può' essere trattata da un programma e ne vedremo 
l’utilizzo a proposito dei file, dei qual i questa può’ 
essere considerata il complemento ideale. 

Vediamo ora un’altra struttura di dati che ci permette di 
servirci della teoria degli insiemi. 


5.16. TYPE SET 


La nozione di insieme, fondamentale in matematica, si 
comprende bene-anche solo intuitivomente. Un insieme e’ 
molto semplicemente le collezione dei suoi elementi. 

Se sono dati gli elementi: A, B, C-, a partitre da essi si 
possono formare i seguenti insiemi: 

C .1 (insieme vuoto) 

CAI CB3 LCD 
CA,B3 LA,C3 CB,C3 
C A , B, C 3 


Ebbene, se in Pascei A, B, C formano un tipo: 

TYPE ELEMENT = (A,B,C); 

gli S insiemi sopra elencati sono degli oggetti del tipo: 
TYPE INS = SET <3F ELEMENT; 

Si vede dunque che in Pascei e' possibile creare degli 
insiemi se si ha un gruppo di oggetti appartenenti allo 
stesso tipo. Questi insiemi formano un tipo SET OF, che 



raggruppa tutti gli insiemi che e' possibile formare con gli 
elementi del tipo base. 


Osservate bene le modalità' di scrittura che seguono: 

. Lista per un tipo, uso parentesi rotonde: 

TYF'E COLORE = <BLF.U, BIANCO, ROSSO) 

. Lista elementi di un insieme, uso parentesi quadre; 
STOFFE : = CBLEU, BIANCO, ROSSO! 

. Intervallo per un tipo, senza parentesi; 

TYF'E INTEGER == 1..5 

. Intervallo per un insieme, uso parentesi quadre: 

C 1. . 5 ! e' la stessa cosa di C1, 2, 3, 4! 


ESERCIZIO 5.14. -■ Scrivete le dichiarazioni compatibili con 
1'assegnazione: 

STOFFE — CBLEU, BIANCO, ROSSO! 

La definizione degli insiemi, che non deve essere confusa 
con quella dei tipi, e’ formalmente piu' semplice. In questo 
caso e' permessa la mescolanza degli intervalli e delle 
liste: 

V : = C 1 . . 5, 7 , 9. . 11 ! 

Mi ricorderete delle difficolta’ incontrate con: 

TYF'E GIORNOLAVOR'O •■= < LUN,MAR,MER,GIO,VEN,SAB); 

WEKEND = ( SAB,DOM) 

dato che SAB appartiene a due tipi. Esse possono essere 
risolte con: 

TYF'E GIORNO = ( LUN, MAR , MER, Gl 0, YEN, SAB, DOM ) ; 

PERIODO = SET OF GIORNO; 

VAR LAVORATIVO,WEKEND : PERIODO; 

LAVORATIVO CLUN..SAMI 

WEEKEND := ISAB,DOMI 

Questo e’ dunque piu' semplice, me permangono delle 

limitazioni. Esse sono dovute al problema della 

"cardinelita. Di cose si tratta? 

La cardinelita' di un tipo e' il numero totale di dati che 
gli appartengono. Per esempio, le cardinelite’ del tipo 1..5 
e' 5; infatti ci sono 5 elementi: 1, 2, 3, 4, 5. 

Se le card ine lite’ di un tipo e’ N, le c: arci i nel i te ’ del 
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SET OF di quel tipo e' 2 elevato a N. 

In effetti un elemento del tipo SET e’ un insieme di 
elementi del tipo base. In conseguenza, per rappresentar lo, 
bisogna dire per ciascuno degli N elementi del tipo base, se 
e' presente o non e' presente nell'insieme. 

Quindi, servono N bit per codificare un insieme, e questo 
spiega perche' non e' possibile formare un insieme a partire 
da un tipo base che abbia una cardinalite' troppo alta. 

Nella maggior parte delle implementazioni del Pascal si 
hanno dei limiti che vanno de 60 a 256. 

Cosi'non può' esistere il tipo SET OF INTE6ER, mentre e' 
possibile costruire un tipo SET OF tipi intervallo. 
Analogamente il tipo base non può' essere strutturato. Per 
contro si possono creare dei FILE OF SET OF (vedi Csp. 
seguente), come delle tabelle di insiemi, e questo permette 
di superare la limitazione dovute ella cardinalite’. 


5 - 17 . OPERAZIONI SUGLI INSIEMI 


In Pascal sono definite le operazioni abituali nella 
teoria degli insiemi. Esse sono definite solo entro insiemi 
dello stesso tipo, cioè’ SET OF lo stesso tipo base. 

Abbiamo già' visto l’operazione di ASSEGNAZIONE: 


TYPE BASE =•-• (Bi,B2,...,BN); 

INS = SET OF BASE; 

MAR E1,E2,E3 : INS; 

A1 , A2 , A3 : BASIR¬ 
EI : = IBI , B2I ; 

E1 := E3 ; 

E2 : = : LA13; (sono assegnazioni corrette) 

RIUNIONE: Si scrive, per esempio: E3 :- E1 + E 2 ; 

esse crea un insieme formato de tutti gli elementi che 

appartengono sia a E1 che a E2. 

E1 ^UMJ) E 2 


ESERCIZIO 5.15. 

Si ha: E1 

:== CB1,B23 ; 


E 2 

L B 3,B 41 ; 


E 3 

: = E1+E2 


Quanto vale E3? 
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ESERCIZIO 5.16. - Stessa domanda se: E1 := CB2,B33; 


INTERSEZIONE: Si scrive in Pascal: E3 := E1 * E2. 

Essa produce l'insieme formato dagli elementi comuni ai due 
insiemi di partenza. Cosi', con i dati dell'esercizio 5.16., 
E1 * E2 vale CB3I 


E1 



E 2 


COMPLEMENTO : E3 := E1--E2 e' l'insieme formato dagli elementi 
di E1 che non appartengono e E2. Cosi', con i dati 
dell'esercizio 5.16., E1-E2 vale CB13 

E1 E 2 


OPERAZIONI DI RELAZIONE 

Queste operazioni danno un risultato booleeno. Anche 
queste sono definite solo entro insiemi dello stesso tipto. 

. Uguaglianza: E1 = ; E2 risulta TRUE se i due insiemi 
sono identici, cioè' contengono esattamente gli stessi 
elementi. 

. Disuguaglianze: E1 <> E.2 risulte TRUE se E1 ed E2 
hanno almeno un elemento non comune. 

. Inclusione: E1 <-* E2 oppure E2 >= E1 risulta TRUE se 
E2 contiene almeno tutti gli elementi di El. 


APPARTENENZA 

Questa relazione viene definita tra un elemento del tipo 
base ed un insieme. Il risultato e' booleano. L'operatore di 
appartenenza IN e’ una parola riservate. 

Al IN E2 risulta TRUE se l'elemento Al appartiene ad E2. 

Questo e’ molto comodo nelle applicazioni. Per esempio, se 
si dichiara: 

VAR X : CHAR; 

IF X IN L ' A’ , ’E ’ , ’ I ’ , '()’ , ’U’ Il controlla se X e' una vocale 
in modo molto piu' semplice che non con l'eserc. 4.S.. 


ESERCIZIO 5.17. - Tradurre in Pascei l’inclusione strette: 
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E1 c E2 


Risulte possibile le letture di un insieme per mezzo di 
letture successive dei suoi elementi (se essi sono di un 
tipo standard) e delle loro riunione successive partendo 
dell’insieme vuoto. 

TYF’E CARATTERI = SET OF CITAR ; 

VAR CAR : CARATTERI -, 

C : CHAR; 

BEGIN 

CAR :=■ L' Dj * i n i z i al i zzez i one insieme vuoto* 

REF'EAT 

READ <C)} 

CAR := CAR + EC3 *ricongiunzione caratteri letti* 
UNTIL EOF 

END. 

Le stampa dell’insieme CAR si fare’ nel modo seguente, se 
si suppone sia formato solo da lettere : 

TYPE CARATTERI = SET OF ’A’..’Z’j 

VAR CAR : CARATTERI ; 

C : ’ A ’ . . ’ Z ’ -, 

BEGIN 

FOR C ;= ’A’ TO ’Z’ DO 
BEGIN 

IF C IN CAR THEN WRITE (C) 

END. 

L.a maggior parte dei compilatori F'ascal offre le funzione 
CARD (X) che da’ come risultato il numero degli elementi 
del 1’insi eme. 


Trattiamo ora un esempio piu’ completo e mostriamo come 
diventa semplice usando gli insiemi. Purtroppo le 
limitazioni esistenti non consentono di trattare allo stesso 
modo altri casi interessanti. Saremo allora obbligati a 
sostituire gli insiemi con le tabelle, e questo e’ il 
trattamento classico. 


CRIVELLO DI ERATOSTENE 

Il metodo del crivello di Eratostene permette di trovare 
tutti i numeri primi inferiori a N molto piu’ rapidamente 
che non il metodo delle divisioni successive, già’ 
precedentemente da noi utilizzato. Il metodo e’ molto 
semplice. Si scrivono tutti i numeri da 2 a N (si sa che 1 
e’ primo). 
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In 

segu 

i to, 

ad ogni 

passo, viene estratto il primo numero 

trovato; 

esso 

viene dichiarato primo e vengono eliminati 

tutt i 

i suoi 

multipii 

. Si 

continua fino ad esaurimento dei 

numeri, come 

segue : 



2 

3 

A 

5 6 

7 

8 9 10 11 12 13 14 15 16 

2 3 

5 

7 

9 11 

13 

15 

3 5 

7 

11 

13 



5 7 

11 

13 





ora sono tutti primi. 

PROGRAM CRIVELLO; 

CONST N=100 ; 

TYPE INS = SET OF 2..N; 

VAR CRI : INS; 

LL,RESTO ; INTEGER; 

K,L : 2..N; 

BEGIN 

CRI := C 3 

FOR K := 2 TO N DO 

CRI ;= CRI + EK3; «creazione crivello* 
RESTO := N-l; 

WHILE RESTO <> 0 DO 
BEGIN 

K := 2; sricerca minor elemento crivello* 
UHILE NOT <K IN CRI) DO 
K . : = K + 1 ; 

URITELN <K, 'NUMERO PRIMO'); 

LL K; *eliminazione K e suoi multipli* 
UHILE LL <=N DO 
BEGIN 

L := LL+ 

IF L IN CRI THEN 
BEGIN 

CRI ;= CRI - CL3; 

RESTO s — RESTO - 1 
END ; 

LL := LL + K 
END 

END 

END. 


Si vede le comodi te' degl i insiemi anche se 1'obbligo di 
trattare L ed LL per ragioni di conformità' di tipo non e' 
molto soddisfacente. 

D’altra perte noi rischiamo di trovare un limite anche al 
disotto di N=100 mentre e' al di sopra che il metodo del 
crivello diventa preferibile e quello delle divisioni 
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successive 


Per superare le limitazioni i ntroduc i sino il metodo del 
crivello sotto forma di tabella booleana: TRUE = presente, 
FALSE -• eliminato. L. ’ srch i tettura del programma rimane quasi 
la stessa e questo sta a dimostrare che si può' lavorare 
bene con le strutture classiche. 


PROGRAM CRI VELI. OStIC ; 

CONST N == 10000 *si può’ andare anche oltre* 

TYPE CR = PACKED ARRAY C2..NII 0F B00LEAN; 

VAR CRI : CRp 

RESTO s INTEGERp 
K : 2. . N f 
L : INTEGER; 

BEGIN 

FOR K := 2 T0 N DO CRI LKII := TRUE -, 

«creazione crivello, inizialmente presenti 
tutti gli elementi* 

RESTO : == N-lj 
UH ILE RESTO <> 0 DO 
BEO IN 

K . -■ * , 

*r i c: ere a elemento m i nere* 

UMILE NOI CRI CKT DO K .- = K + 1; 

WRITELN < K, 'NUMERO PRIMO’ ) -, 

L := Kj 

«eliminazione di K e suoi multipli* 

UMILE L O N DO 
BEGIN 

IF CRI I L II THEN 
BEGIN 

CRI LI. Il : = FALSE; 

RESTO :== RESTO -• 1 
END ; 

1... := L + Kp 

END 

ENI) 

END. 


Ore abbiamo manipolato i principali tipi di dati offerti 
dal Pascal, insistendo soprattutto sui tipi strutturati, 
dato che sono i piu’ importanti nelle applicazioni. 

Ripetiamo ancora una volta che le tabelle permettono di 
fere tutto, me che, quando si può’ usarli, i tipi speciali 
del Pascal permettono applicazioni interessanti. 

Ci restano da esaminare altri due tipi, ancora piu’ 
speciati : 


SI 



. Il tipo FILE, dato eh* il Pascsi forma un tipo standard 
con i file-. 

. Il tipo POINTER che- permette- di ge-stire- le memoria in 
modo dinamico e- di organizzar* d*ll* strutture di list*. 

Prima pero’ vediamo come possiamo rendere modulari i 
nostri programmi con l’aiuto dell* PROCEDURE * delle 
FUNCTION. Ruesto *', non dimentichiamolo, uno dei principali 
imperativi della programmazion* strutturata. 




CAPITOLO 6 


PROCEDURE E f r II NZIONI 


6.1. PREMESSA 


lì Pescai c: i offre- le poss i b i 1 i te ’ di re-nde-re- i progredii# i 
modulari, cioè-' di dividerli in enti te’ piu’ semplici, ben 
i nd i v i duel i zzate, il cui scopo sie facilmente- definibile- e 
comprensibile. Questo facilita enormemente la stesura e la 
comprensione dei programmi. 

Per illustrare questa possibilità’ del linguaggio facciamo 
riferimento, per esempio, agli esercizi 1.5. e 2.1.. 

In seguito e una condizione IF...THEN si deve provvedere- e 
scambiare tra loro due elementi appartenenti alla tabella in 
esame. Noi potremmo scrivere le istruzioni per lo scambio a 
quel punto del programma, ma questo: 

. ci farebbe perdere- il filo del ragionamento; 

. renderebbe il programma meno chiaro. 


E’ senz'altro preferibile prendere nota nel modo piu’ 
sintetico possibile che vogliamo procedere allo scambio 
degli elementi, me rimandare a dopo le stesure delle 
istruzioni necessarie per lo scambio vero e proprio, e 
proseguire nel ragionamento precisando cose si deve fare 
quando non necessita lo scambio. 


Questo presente dei vantaggi: 

. Non ci siamo persi nei dettagli della scrittura del 
procedimento di scambio , ma al contrario, scrivendo solo la 
chiamata della procedura SCAMBIO, abbiamo potuto dedicarci 
all’ossatura generale del programma. 


. La programmazione risulta piu' chiara e piu' leggibile, 
grazie alle scelta giudiziosa del nome delle procedura 
chiamata, il cui ruolo può’ anche essere precisato da 
opportuni commenti. 


Piu’ in generale, Pascal ci permette di suddividere 
qualunque elaborazione in procedure dotate ciascuna di un 
nome . Una proc. edure v i ene r i t: h i amata sempl i c emente c i tando 
il suo nome (non si ha la parola chiave CALI.. come in 
Fortran) . 


83 



Il programma principale- risulta cosi' molto leggibile-; 
e-sso e’ formato da una sequenza di chiamate elle diverse- 
procedure, con eventualmente qualche controllo (test), ma il 
concatenamento delle diverse tappe dell’elaborazione rimane 
mdlto visibile. 

Una procedura può’ esse stessa definire e chiamare altre 
procedure e cosi' di seguito, cosa che costituisce, in certo 
modo, una sorta di cicli nidificati. 

Questo facilita il modo di concepire i programmi, modo 
chiamato di analisi discendente (top down). Le grandi tappe 
dell’elaborazione (primo livello) -;ono definite per prime, 
poi ciascuna di queste teppe viene affinata (secondo 
livello), poi ciacuna delle procedure del secondo livello 
viene affinata, ec:c... Questo metodo degli affinamenti 
successivi e’ molto comodo. 

Le procedure sono invece compatibili con il metodo 
contrario, detto dell'analisi ascendente (down top). La 
definizione delle procedure appare allora come l’aggiunta di 
nuove istruzioni al linguaggio. 

Per esempio, quando e’ necessaria una procedure di 
scambio, la si scrive, Si costruisce cosi' uno stock di 
procedure che formano un livello; il programma al livello 
superiore consisterà' in una serie di chiamate a queste 
procedure, come se esse fossero delle istruzioni del 
linguaggio. 

Al livello piu’ basso sono utilizzate le istruzioni vere e 
proprie del linguaggio. 

Notiamo che noi utilizziamo come istruzioni del Pascal 
alcune strutture che sono, di fatto, delle procedure o delle 
funzioni standard, come SIN o URITE. 

Qual'e' il metodo migliore? L'analisi discendente o 
ascendente? Noi pensiamo, e l’abbiamo sempre fatto, che il 
meglio sia adottare un metodo misto; noi partiamo dall'alto, 
me nello stesso tempo, noi scriviamo (o almeno definiamo) 
tutte le procedure elementari delle quali possiamo prevedere 
la necessita’. Quando le due progressioni si ricongiungono, 
il programma e' scritto. 

Un a11 ro vant aggio enor me de Ile pr oc edure e delle funzioni 
e’ che, molto spesso in una elaborazione, si hanno delle 
parti di trattamento utilizzate piu’ volte. Per esempio, 
invertire una matrice in diversi punti del programma. Non si 
va cosi’ ogni volta a riscrivere l’inversione della matrice. 
Si scrive una procedura e la si chiama ogni volta che serve. 

Da cui la struttura seguente: 




PROGRAM PRINCIPALE ; 

dic hiarazioni del pr ogr . pr ine: i pe I e 
PROCEDURE INVERNAI ; 
v diehiarazioni di INVERNAI 
BEGIN «inizio INVERNAI* 


-*END; «fine INVERNAI* 

altre procedure se presenti 
BEGIN «inizio programma principale* 


INVERNAI; «chiamate procedure* 


INVERNAI; «altra chiamate* 


END. «fine programma principale* 


In un certo senso, le definizioni delle procedure fanno 
parte delle dichiarazioni del programma principale (sono 
poste alla fine delle diehiarazioni) . 


La procedura termine con la parola END (seguite da un 
punto e virgola) che corrisponde al RETURN del Fortran e del 
Basic. Ricordiamo che le END del programma principale 
termina con un punto. 

La figure, di cui sopra, mostra che la chiamate della 
procedura corrisponde ad un salto all'inizio della stessa. 
La procedura viene percorse fino elle parole END. A questo 
punto si sviluppa la parte piu' interessante del meccanismo; 
si ha un salto proprio subito dopo le chiamata che he reso 
attiva la procedura. Detto in altro modo, il meccanismo 
"ricorda" de dove e’ venute le chiamata (tratteggio pieno o 
punti nato nella figura). Questo meccanismo e’ classico, 
esiste in tutti i linguaggi di programmazione. Ci importa 
poco qui sapere come esso e' realizzato (vedere paragr. 
8.2.), ma bisogna comprendere bene il suo funzionamento e 
sapere che esiste. 


L’economia che ne consegue e’ immensa; lo spazio di 
memoria per la procedura viene occupato una sola volta, lo 
sforzo per scriverla viene fatto una sola volte, senza 
contare che può' essere utilizzata una procedura già' 




scritts. 


Resta un punto de precisare nell’esempio visto. Come 
indicare alle procedura INVERNAI quale matrice essa deve 
invertire? Ritorneremo su questo problema. 

Come il Fortran tra gli altri, il Pascal offre due tipi di 
moduli: le PROCEDURE e le FUNCTION. 


6.2. FUNCTION 


Le FUNCTION sono semplicemente una generalizzazione delle 
funzioni standard del Pascal; l'uti1izzstore può' egli 
stesso definire le FUNCTION che gli servono. 

La chiamata di una funzione si fa nominandola all’interno 
di una espressione aritmetica, come per le funzioni 
standard. 

Supponiamo di aver definito una funzione tangente TG(X), 
si potrà’ avere: 

Z :=2.0*Y-W*TG<3*X+5) 

In questo caso l’esecuzione di TG produrrà' un salto elle 
istruzioni di calcolo della funzione. Prima del ritorno la 
funzione avra’ ricevuto un valore, questo valore viene 
sostituito a T(3 nel calcolo e esso prosegue. 

Questo fa supporre che la funzione sia stata scritta dopo 
le dichiarazioni iniziali. Per il nostro esempio della 
tangente calcolata a partire dalle funzioni standard SIN e 
C08, si dovrà' scrivere: 

FUNCTION TG(X : REAL): REAL ; 

BEGIN 

TG : - SIN < X)/COS(X) 

END; 

La prima linea viene chiamata le testata delle funzione. 
Il secondo REAl. della linee definisce il tipo della 
funzione, cioè’ il tipo del valore che verrà’ usato in tutte 
le espressioni che chiamano la funzione. 

Questo tipo e’ oblìi i getor i emente scalare, quindi une 
funzione può' fornire un solo risultato scalare. Tra 
parentesi figura quella che viene chiamate la lista degli 
argomenti della funzione. Qui ne abbiamo uno solo: X. Viene 
dichiarato anche il suo tipo: REAL.. L'argomento gioca il 
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ruolo di parametro formale per il calcolo della funzione. 

Le X all’interno della funzione non e’ la stesse che 
compare nel programma chiamante. Prima di entrare nella 
funzione, il Pascal calcola 3*X+5 e trova il suo valore V. 
Questo valore viene copiato nella X della funzione ed ha 
luogo il calcolo delle stesse. 

Si dice che X e' locale alla funzione (ci ritorneremo 
sopra) e che l'argomento e’ un ergomento fornito elle 
funzione. 

Prime delle END che segna le fine della funzione si deve 
avere una assegnazione di valore all’identificatore TG; 
questo e’ il valore delle funzione. 


ESERCIZIO 6.1. - Scrivere una funzione che calcoli Y elevato 
a X, deto che il Pescai non possiede l’operatore per 
l'elevamento a potenza. Si suppongano tutti i tipi REAL. 


6.3. PROCEDURE 


l..e FUNCTION sono un po' limitate, per questo esistono le 
PROCEDURE che hanno un campo di validità' maggiore. 

Se une FUNCTION restituisce un "valore", una PROCEDURE 
produce degli "effetti"; calcolo di parecchi risultati, 
modifica di parecchie variabili, o anche effetti fisici 
sull'ambiente in un programma di controllo di processo. 

Per esempio, scriviamo une procedure il cui effetto e' di 
tracciare una linea formata dalla ripetizione del carattere 
C, N volte. 

PROCEDURE TRACCIA < C s CHAR ; N : INTEGER ) -, 

CONST MAX = 100; 

BEO IN 

IF N > flAX THEN N := MAX; 

POR I := 1 TU N DO 
URITE <C); 

URI TELN 
END ; 


ESERCIZIO 6.2. * Queste procedure può’ sevire e sottolineare 
dei risultati stampati. Essa può' servire anche per 
tracciare un istogramma. Si he une tabella RISULTATI 
III..103, dove ciascun elemento e' il risultato di >»ns classe 
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(compreso tra 1 e 100). Tracciate l'istogramma 


Ecco qui un punto fondamentale. Supponiamo che la 
procedura TRACCIA sia chiamata con un argomento maggiore di 
100 . 


La procedura TRACCIA modifica il suo argomento in questo 
caso; essa lo riporta a 100 per non rischiare di fare un 
tratteggio piu' lungo delle linea di stampa; proviamo: 


N :=120 
WRITELN <N>; 
TRACCIA ( ' * ' , N ) 
WRITELN (N); 


Otterremo : 

120 

*** 100 volte in tutto *** 
120 


La N e' stata modificata nella procedure, ma non nel 
programma chiamante! 

Questo e’, in effetti, un vanteggio del Pascei sul 
Fortran, per esempio. Oli argomenti forniti sono protetti, 
mentre in Fortran, non sono protette neppure le costanti. 


FORTRAN 


PASCAL 


SUPROUT 1 NT T0T0 <K> 

K == 2 

RETURN 

ENI) 

I = 1 

URITE (6,10) I 
CALI. T0T0 (I) 

I = 1 

URITE (6,10) I 


PROGRAM 707.0 

DAR I : = INTEGER; 

PROCEDURE T0T0 (K:INTEGER); 
BEO IN 
K := 2 
END; 

BE6IN 

I := 1; 

WRITELN (I); 

T0T0 (I); 

WRITELN (I); 


stampa 1 stampa 1 

2 1 


Questa trasforma:: ione, nociva, della costante dovuta alla 
confusione che fa il Fortran tre gli argomenti forniti e 
quelli ritornati viene chiamata "effetto col laterale" . 

Bene, ma io vorrei anche avere degli argomenti di ritorno 
in Pascal. Per esempio, vorrei scrivere una procedura che 
legge una matrice A e vorrei poter usare le matrice nel 
programma ehiamante . 



LEGG0P1AT( A ) ; 

Z :“ AC I,J3.. . 

F'ascal lo permetti?, naturai mente. Me es-so distingue gli 
argomenti di ritorno accompagnandoli con la dichiarazione 
MAR nelle lista degli argomenti. Cosi' si scriverà': 

PROCEDURE LEGGOCIAT (VAR A : ARRAY C1. . 10,1 . . 103 0F READ ; 

VAR 1,J : INTEpER; 

BEGIN 

FOR I :* 1 10 10 DO 
BEGIN 

FOR J := 1 TO 10 DO 
READ (A CI,Jl) f 
READLN 

END 

END; 


ESERCIZIO 6.3. - Cosa succederebbe se uno avesse scritto: 

PROCEDURE TRACCIA (C:CHAR,VAR N:INTEGER); 
e PROCEDURE TOTO (VAR K:INTEGER); ? 


Noi pensiamo che questo meccanismo e' ora abbastanza 
chiaro. E’ sottinteso che un argomento VAR deve apparire 
come variabile nell'istruzione di chiamata, infatti, al 
ritorno esso deve contenere un valore eventualmente variato, 
cosa che non si può' ottenere con una costante o una 
espressione aritmetica. Esempio: 

PROCEDURE TOTO (VAR K : type); non può' essere chiamata 
con : 

TOTO (3*X+1 ) ; 

F'er contro, il nome della variabile non ha alcuna regione 
di essere lo stesso nel programma chiamante e nella 
procedura. Esempio: 

VAR X :type; 

PROCEDURE TOTO (VAR Y:type>; 

TOTO (X); 

Al momento della chiamata si evra’ copia delì’X chiamante 
nello Y chiamato; al momento del ritorno si avra' copia 
dell’Y chiamato nell'X chiamante. 

l.a seconda copiatura non ha luogo se l'argomento non ha 
l’attributo VAR. Quello che e’ assolutamente obbligatorio e’ 
che X e Y siano dello stesso tipo (altrimenti le copie sono 
impossitili). 
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Un nome di file può' essere l'argomento di una procedura, 
ma esso deve essere di genere VAR. 


6.4. VARIABILI LOCALI E GLOBALI 


Noi potremmo scrivere diversamente il nostro programma per 
la lettura della matrice A: 

PROGRAM MATRICE ; 

VAR A : ARRAY LI..10,1..103 OF REAL; 

I,J INTEGER; 

PROCEDURE LEGGOMAT; 

VAR I,J : INTEGER 
(come sopra) READ (ACI,J3); 

END ; 

BEGIN 

LEGGOMAT; 

A CI,J3 ....(utilizzo) 

uuesto significa che una variabile (qui A), conosciuta nel 
programma chiamante e’ conosciute anche in tutte le 
procedure e le funzioni chiamate. 

Si dice che questa variabile e' "globale". 

E' esattamente cosi' che le cose si svolgono in Basic, e 
in tele linguaggio non si he altro modo di trasmettere delle 
informazioni tra il programma chiamante ed i sottoprogrammi, 
dal momento che non sono disponibili gli argomenti. 

Questo costituisce un considerevole svantaggio del Basic. 
In effetti; 

1. La trasmissione delle variabili globali e’ talvolta 
meno comoda della trasmissione degli argomenti. 

Cosi’, le nostra seconde versione della procedura per la 
lettura della matrice non può' leggere che la matrice A. Se 
vogliamo leggere una matrice B, con le prima versione, la 
chiamata si scrive; LEGGOMAT (B>; mentre con la seconda 
versione sarebbe necessario un trasferimento; B:~A, dopo la 
chiamata di LEGGOMAT. Inoltre e' possibile avere una matrice 
A da conservare dopo ch«' le procedura l'avre’ modificata. 

2. Le variabili globali sono qualche volta nocive. 

Torniamo elle nostre procedure TRACCIA. Essa utilizza una 
variabile I come indice di ciclo. Nell’esercizio 6.2. noi 
abbiamo fortunatamente introdotto une variabile 

supplamentare K da usare come indice nel ciclo dove 
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TRACCIA viene chiamata: 

FOR K:=1 TO 10 DO 

TRACCIA ( ’ * ’ ,RISULTATO CK3); 

Se- noi non l'avessimo fatto, cioè' se avessimo utilizzato 
la stessa vati ab ile I: 

FOR I : = 1 TO IO DO 

TRACCIA < ’ * ' , RISULTATO 11 II ) * 

sarebbe stata una catastrofe. In effetti la variabile I e' 
globale. Quindi essa viene modificata ed ogni chiamata di 
TRACCIA, e il ciclo del . programma principale viene 
completamente rovinato nell’esempio appena visto. 


Il rimedio viene dalle variabili locali. E' possibile 
introdurre in una procedura una variabile di lavoro, come 
l'indice di un ciclo, che sara' riconosciuta solo 
all’interno della procedure. Questa variabile viene chiamata 
locale. 

Le variabili locali favoriscono di molto la modularità’ 
dei programmi; ogni procedura ha le sue variabili locali, e, 
durante la stesure di una procedura non e’ necessario 
pensare alle altre procedure, cosa che e' proprio lo scopo 
della modularità'. 

Perche’ una variabile sia considerata come locale, basta 
dichiararla in testa alla procedura. Una variabile non 
dichiarate all’inizio delle procedura e’ considerata 
globale, cioè’ si accede alla variabile cosi' come essa e' 
conosciute nel programma. Una variabile dichiarata in una 
procedura risulta locale per quella procedura; essa viene- 
eli stinta de una variabile avente lo stesso nome e conosciuta 
nel programma principale. Noi ne abbiamo già’ visto degli 
esempi. Cosi’ nel programma delle matrice le variabili I e J 
sono dichiarate. La procedura LEGGOMAT dichiara anche le¬ 
var i abili I e J ed esse vengono distinte delle loro omonime. 
In tale modo la chiamata di LEGGOMAT non rischia di creare 
scompiglio tra gli indici del programma chiamante. 


ESERCIZIO 6.4. ~ Riscrivete il programma dell’esercizio 6.2. 
in modo che le variabili che devono esserlo siano locali. 
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A.5. PORTATA DEGLI IDENTIFICATORI 


Le nozione di portate gioce un suo ruolo su tutti gli 
oggetti, tipi, costenti, procedure, e non soltanto sulle 
variabili, enche se nel ceso dell«e variabili l ' i («portanze e' 
maggiore. 

Si possono " i rise etol ere" a volontà' le definizioni delle 
procedure. Ogni volta si definisce un livello piu' profondo. 
Esempio: 


-PROGRAM Aj 

— PROCEDURE B; 

i— procedure: c s 

[-PROCEDURE D f 
? 3 A BEGIN <D) 

L END; <D) 
BEGIN <C) 

L-end> <C) 
BEGIN < B) 

— END f <B) 

BEGIN (A) 

-END. < A) 


nome e definiti a livelli 
livello di definizione e 


I numeri riportati indi ceno i 
livelli. Le regole generali 
sono le seguenti: 

. Un oggetto definito ad un 
livello e' globale rispetto 
ai livelli piu' interni. Cioè' 
esso e’ conosciuto e eccessi- 
bile ai livelli piu' interni. 

. Un oggetto definito ed un 
livello e' locale rispetto a 
quel livello. In particolare 
esso prende il sopravvento 
sugli oggetti eventi lo stesso 
superiori, questo vale per il 
per quelli piu’ interni fino e 


quando venga definito nuovamente un oggetto avente lo stesso 


nome e che prende a sue volta il sopravvento. 


Cosi' con le definizione date di fianco si ha: 


3 versioni delle variabile X: 

X definita in A e accessibile 
solo ad A, 

X' definita in B e accessibile 
in B e C, 

X'' definita in D e accessibile 
in D. 

2 versioni della variabile Y: 

Y def i n i te in A e ec c: ess i b i 1 e 
da A e B, 

Y’ definite in C e eccessi bile 
in C e D. 


PROGRAM A; 

DAR X,Y,2: . . . 
PROCEDURE B -, 

DAR X: . . . 
PROCEDURE C f 
DAR Y:.. . 
PROCEDURE D f 
DAR X : . . . 


Per contro 7 risulta globale per tutto il programma. 

In C, per esempio, non si ha alcun modo di accedere alla X 
che e’ stata definite in Aj si può’ solo eccedere elle 
versione di X definita in lì. 

Un oggetto non può’ essere raggiunto ad un dato livello se 
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non e ' stato definito 3 quel livello, o ad un livello 
superiore, in una procedura in atto quando le procedura dove 
ci si trova e' attiva. Esempio: 


PROGRAM A; 

DAR X } 

PROCEDURE B; 

DAR Y; 
END; 

PROCEDURE C; 


r 

< 


E’ poss i b • le, in C, di accedere 
a X (livello superiore) ma non a 
Y perche’ B, dove Y e’ definito 
e' allò stesso livello ma esclu- 
sivo di C; non e’ B che chiama C 
I?. non e' attivo quando C e' chia¬ 
mato . 


Da questo punto di vista, gli argomenti di una procedura 
sono locali per quelle procedura. 

In una procedura si può’ accedere a 3 tipi di oggetti: 

. gli oggetti locali, 

. gli argomenti, 

. gli oggetti globali (venuti dai livelli meno 
profondi). 


L’accesso agli oggetti di un livello piu’ interno e’ 
impossibile. L'accesso agli oggetti di un livello piu' 
esterno e’ ugualmente impossibile, se non c'e’ una catena di 
chiamate inscatolate di procedure che col leghi no questo 
livello al livello attuale. 


Quest’ultimo punto derive del fatto che nel Pescai una 
procedura non esiste in memoria che quando essa e' attiva 
(in corso di esecuzione). Questo e’ molto diverso de quello 
che succede in Fortran o in Basic. Per esempio: 

PROGRAM TOTO; 

PROCEDURE A ; 

VAR X: ARRAY 11.. 5000 3 0F RE Al. ; 


END; 

PROCEDURE B; 

MAR X:ARRAY LI..50003 DE REAL; 


END; 

PROCEDURE C; 

MAR Y: ARRAY LI..50003 0F REAL; 


END; 

BF.6IN 

A; 
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Bf 


B ; 
end. 


In nessun Momento si potrà’ «vere piu' di un* procedure A, 
B e C etti ve. Dunque non si occuperà' mei piu' delle parte 
di Memori* necessarie per conservar* 5000 elementi delle 


steto 


tabelle, mentre in Fortran sarebbe 
memorizarne 15000. 

Il Pascal permette dunque di risolvere 
problemi di caricamento in memoria 
(overlay), e questo fa risparmiare molte memorie. 


necessario 


automaticamente i 
con salvataggio 


ESERCIZIO 6.5. - Scrivere un programma di moltiplicazione di 
matrici (confronta con il Cap. 5) suddiviso nelle procedure: 
lettura di matrici, calcolo del prodotto, stampa della 
matrice. In seguito, per ciascuno degli oggetti intervenuti, 
dire quale e' la sua portata, tenendo conto delle regole 
sulla portata degli identificatori. 


6.6. ARGOMENTI DELLE FUNCTI0N E DELLE PROCEDURE 


Una funzione o una procedura può’ essa stessa costituire 
un argomento per una procedura. 

Per esempio, se noi vogliamo scrivere una procedure per il 
calcolo di un integrale, e' chiaro che la funzione da 
integrare e’ un parametro della nostra procedura. 

Il Pascal standard lo consente (attenzione: non e' il caso 
del Pascal UCSD). 

L'intestazione della procedure si scrive: 

PROCEDURE INTEG (FUNCTI0N F REAL* VAR S:REAI_) 

e la funzione e’ utilizzate in INTEG nelle forma: 

Y:=F(X>.. . 

mentre la chiamata sera’ nelle forme INTEG (SIN,S,...> se si 
vuole integrare la funzione seno. 

Noi potremo anche far riferimento ed urie funzione definite 
da noi. Questo e' obbligatorio in alcune implementazioni del 
Pascei che vietano di usare come argomento une funzione 
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standard. La soluzione e' di definire una funzione non 
standard identica alle funzione standerd voluta: 

TOTO := SIN(X) e poi chiamare INTEG <TOTQ,S,.. . ). 

Scriviamo queste procedura. Oltre alla funzione da 
integrare e al risultato S, gli argomenti saranno i limiti A 
e B dell'integrazione e il numero di intervalli elementari 
di integrazione <utilizzi amo il metodo dei trapezi). 

L'intervallo per ogni passo e’: 

h =(b-a)/n mentre per S vale: 

-> x n-1 

S =h< <f <a)+f <b> >/2+ j: f < a + i h > ) 

i ” 1 



da cui la procedura: 

PROCEDURE INTEG (FUNCTION F : REAL ; VA R S : RE AL. ; 

A ,B :REAL; N:INTEGER); 

VAR X,H :REAL; *H passo di integrazione* 

BEGIN 

H:=(B~A)/Nj 

S:=<F(A)+F<B)>/2; 

X:=A+Hj 

REF'EAT 

S: =S+F <X) ; 

X :=X+H; 

UNTIL X > B--H/2; 

S:=S*H 

END; 

La sola cosa da notare e’ che, di norma, si sarebbe dovuto 
scrivere UNTIL X=B, ma per delle ragioni di precisione di 
calcolo e' molto difficile controllare l’uguaglianza tra 
numeri reali, da cui la nostra scrittura. 


ESERCIZIO 6.6. - Scrivere un programma che provi questa 
procedura per calcolare: 

Io SIN X DX < valore esatto 2) 

controllando la precisione ottenuta per diversi valori di N: 
5, 10, 15, 20, 25. 


NOTA: Notate le forme delle lista degli argomenti nella 
testata della procedura o della funzione. Si hanno degli 
elementi separati dal punto e virgole. Ciascun elemento può’ 



essere un nome di PROCEDURE o di FUNCTION, un tipo o un nome 
VAR, un tipo o un nome, un tipo. Non s-i hanno virgole a meno 
che non si abbiano piu' nomi dello stesso tipo 
( j nomel, nome2: t i po -, ). 


6.7. LA RECURSIVITA' 


Una restrizione ben note ai programmatori Fortran e’ che 
un sottoprogramma non potrà' in alcun caso richiamare se¬ 
ste s so ! 


Ebbene in Pascal queste restrizione non esiste. Una 
PROCEDURE o una FUNCTION può' richiamare se’ stessa. Questo 
si chiama "reeursivite’". Facciamo notare che questo e’ vero 
anche in alcune implementazioni del Basic, ma, dato che i 
sottoprogrammi Basic non possono gestire argomenti, gli usi 
possibi1i sono moIto ri dotii. 

A cose può’ servire questo? Ebbene, un certo numero di 
problemi si pongono in modo ri corsivo, cioè' la loro 
soluzione presuppone le soluzione di una versione piu’ 
semplice dello stesso problema. 

Per esempio, si sa che le definizione del fattoriale di N 


. fattoriale 0-1 

fattoriale N=N*fattoriale < N — 1> 

In Pascal si può’ scrivere le funzione seguente per 
calcolare il fattoriale seguendo direttamente la sua 
definizione: 


FUNCTION FATTORIALE < N : INTEGER > : I NT E BER ; 

BEO IN 

IF N-0 THEN FATTORIALE 1 

ELSE FATTORIALE :== N*FA PTOfiSf ALE < N -1 > 

END; 


Supponiamo di chiamarla cosi’; 7. 

A c i a s c u n a c h i a m a t a r e c u r s i v a 
versione dell a p r o c e d u r e d i v e ri t a 
de 1.1 a var i ab i 1 e 1 oc a 1 e N e 
dell’argomento N aumentano, per 


FATTORIALE <3> 


della 
attiva 
le 

c osi ’ 


funzione 
cori una 
diverse 
dire. S i 


successivomente : 


, una 
versione 
versioni 
evre ’ 



N=3 diversa da 0 e quindi chiamata per N=2 


li 

N = 2 " " " " " 11 »• N =: 3 "? 

li 

N=1 " ". " " N=0 1 

9 

li 

e nella pila si avra’: 0 

1 

'? 

li 

a questo punto, dato che N~0, comincia il ritorno: 

N-0 e quindi FATTORIALE := 1 1 

li 

N= 1 " " " : = 1*1 •- 1 2 

li 

N=2 " " " : = 2*1 = 2 ^ 

N--3 " " " := 3*2 == 6 U 

da cui il risultato finale. Questo schema mostra chiaramente 
il Meccanismo della pila: una pila e’ una struttura di dati 
dove un nuovo dato può' sempre essere aggiunto alla 
sommità’, ed il solo dato prelevabile e’ quello che si trova 
alla sonilo ita’. 

E' una pile la struttura che serve per memorisaere gli 
indirizzi di ritorno dei sottoprogrammi ed e’ questo che 
permette le nidificazioni. 

Il difetto del Fortran e’ che esso gestisce una pile solo 
per gli indirizzi di r i torno dei sottoprogramm i , mentre il. 
Pascal gestisce una pila per ogni argomento e variabile 
locale e questo consente la recursivita'. 

Detto questo, facciamo notare che anche se non si dispone 
della recursivita' si può' calcolare il fattoriale. In molti 
cesi le definizione recursiva di un problema si può' 
trasformare in definizione iterativa. Per il fattoriale 
baste scrivere: 

FUNCTIQN FAC ( N: INTEGER ) : INTEGER -, 

DAR I,F : INTEGER; 

BEGIN 

I : = 0 j F : = : 1 * 

UMILE I < N DO 
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BEGIN 

I:=I+1; 

F:=I*F 

END} 

FAC:=F 
END; 

L'utilizzo del1 e funzione iterative e’ piu’ redditizio 
riguardo al tempo di esecuzione ed alla occupazione di 
memoria di quello della funzione recursive. Dunque e’ 
meglio, quando si può', utilizzare una forma iterativa 
invece di una forme recursive. (le, in certi cesi, il 
problema e' recursivo in modo cosi’ naturale che e' 
impossibile non utilizzare la forme recursive. 

Esempio: Supponiamo di voler scrivere una procedura per 
interpretare le espressioni aritmetiche: 

PROCEDURE INTERP ( ESPRESSIONI : 8TRING) -, 

L’espressione de interpretare e’ une sequenza di 
caratteri, (la si sa che si devono calcolare per prima cosa 
tutte le parti di espressione racchiuse tre parentesi: 
INTERP (’XXXX(sotto-espressione)XXXX') fara' dunque appello 
a INTERP<sotto-espressione). In questo problema e’ naturale 
la recursivita'. Molti programmi che fanno parte del sistema 
operativo sono di questo tipo. Le recursivite’ del Pascei e’ 
uno degli elementi che ne fanno un linguaggio utilizzabile 
per scrivere routine di sistema. 


6.8. LA TORRE DI HANOI 


Trattiemo ore un esempio dove le forma recursive si 
inserisce naturalmente e dove la forma iterativa non sarebbe 
facilmente applicabile. E’ il problema delle Torre di Fieno i . 
Si dispone di 3 paletti sui quali possono essere infilati 
dei dischi di diverso diametro. Alle partenze, N dischi di 
diametro decrescente sono infilati sul paletto 1. 


j: 

-, 


1 

,_j_ 

L—j 

r J - 

-IL 

i- 

---1 

1 


V8 



Si devono passare i dischi sul paletto 2 aiutandosi con il 
paletto 3 e seguendo queste regole: 

.1 - Si può' togliere un disco per volta; 

.2 - I dischi devono sempre essere infilati su un 
paletto, non possono essere appoggiati sul tavolo di fianco 
ai paletti; 

.3 - I dischi infilati su un paletto devono sempre 
trovarsi in ordine di diametro descrescente. Non si può’ 
posare su un disco un altro di diametro superiore. 

Ebbene, q'uesto problema ha una soluzione recursiva 
semplice; infetti se chiamiamo SPOSI <N,I,J) la procedure 
che sposta N dischi dal paletto I al paletto J: 

sappiamo effettuare lo spostamento per 1 disco: SPOSI 
(l,I,J> consiste molto semplicemente nello stampare I => J 

- supponiamo di aver risolto il problema per N-l, cioè’ 
che noi sappiamo spostare rispettando le regole N-l dischi 
superiori. Questo e’ possibile perche’ e’ il disco di 
diametro maggiore ad essere "neutra!izzato". I movimenti 
conformi alle regole per gli N-l dischi piu’ piccoli 
resteranno conformi alle regole per N. Dunque, se N 0.1, 
EPOS T (N,1,J) si scrive: 

SPOSI ( N -1,1 altro(I,.J)); 

SPOSI (1,I,J); 

SPOST ( N--1, altro < I ,,J ) ,,J>; 

ed e’ tutto. Altro(I,J) si riferisce al terzo paletto se I e 
J sono i primi 2. Se i paletti sono numerati 1,2 e 3, 
allora: eltroll,J)- : 6-1-J. 

Il programma si scrive allora:: 


PROGRAM HANOI; 

DAR N : INTEGER; 

PROCEDURE SPOSI LN,I,K: INIEGER); 

BEO IN 

IF N 1 THE N WRITEL.N ( I J ) 

ELSE BEGIN 


SPOST (N-1,I,6~I-J); 
SPOSI ( 1 ,1, J ) ; 

ESPOSI (N-l ,6-i - j , j ) 
END 


END; 

BEGIN 

READ(N ) ; 
SPOSI(N,1,2) 
END . 


Il risultato del programma sera’ la liste dei movimenti 
successivi da fare: 

1 => 3 1 ==> 2 3 ==> 2 . 
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dove I => J si interpreta nella forma "prendere il disco 
piu’ in alto (e anche il piu’ piccolo) dal paletto I e porlo 
sopra al disco che si trova già' nel paletto J". 

•Si vede la semplicità’ che apporta la reeursivita' in un 
problema a priori complicato; si può' quasi fare a meno di 
ragionare, e’ il meccanismo della pila che svolge il suo 
lavoro. 


ESERCIZIO 6.7. - Bene, noi andiamo a lavorare un po' lo 
stesso. Dobbiamo stampare sulla stampante o sullo schermo 
gli stati successivi dei paletti. Il numero dei dischi e’ 
limitato a IO. Alla partenza la situazione sara' questa, se 
ci sono 5 dischi: 


linea 1 



? 

10 



I 

I 

I 

I 

I 

.1 

I 

I 

I 

I 


I 

I 

I 

I 

I 

:c 

i 

i 

i 

i 


col. 1 11 22 32 43 53 63 


Il disegno sara’ contenuto entro una matrice di 10 righe e 
63 colonne. I paletti saranno reppresentati de delle I e i 
dischi da simboli ~. Per comodità' si terra' una matrice 
immagine ridotte a 10 righe e 3 colonne che apparire’ 
inizialmente cosi' (a immagine del disegno di cui sopra): 

0 0 0 Oneste due metrici saranno variabili 

0 0 0 globali : 

0 0 0 MAR DI SEGNO : ARRAY!1..10,1..633 0F CHAR ; 

0 0 0 RIDOTTA: ARRAYCl .. 10,1 . .33 0F INTINGER ; 

0 0 0 

10 0 COLL : ARRAY T1..3I 0F JNTEGLR; 

200 Quest' ultimo vettore COLL contiene il 

3 0 0 ri u m e r o d elle c: o 1 o n n e' d o v e s o ri o d i s e g ri a= 

400 te le l dei paletti (11,32,53). 

5 0 0 


I ri t- r o d u c i e m o ora 1 e proc e d u r e ri e c: e s s a rie: 

INIT: che crea il disegno iniziale in due fasi: 

- . iniziai izza le metrici RIDOTTA e DISEGNO; 

- . traccia il disegno. 
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MOVIMENTO: che- traccia lo stato finale di ogni movimento in 
cinque fasi: 

- . ricerca il disco piu' alto sul paletto di partenze e 
annota le sue dimensioni; 

- . toglie il disco del paletto dove si trova; 

- . ricerca il posto libero piu' basso sul paletto di 
arrivo; 

- . mette a posto il disco sul paletto; 

-- . traccia il disegno. 

Segue il programma ed un esempio per N=3. I risultati 
ottenuti qui sono quelli che derivano dal l'aver applicato la 
modifica suggerite nell’esercizio 6 . 8.. 


ESERCIZIO 6.8. - Apportate il seguente perfezionamento: se 
N<10 non e’ necessario stampare su 10 righe. I paletti non 
devono necessariamente essere piu' alti della torre 
iniziai e. 


PROGRAM HANOI; 
DAR N: INTEGER; 


DISEGNO:ARRAY!1..10,1..6330F OLIAR ; 

RIDOTTA:ARRAY IH..10,1..330F INTEGER; 
COL !.. : ARRAY! 1 . . 3 :» C) F I NT E GÈ R ; 

PROCEDURE INIT<N:INTEGER); 

DAR I,J,K:INTEGER; 

BEGIN * init * 

C 0 L. !.. ! 1 T : = 11;! C 01.1 ! 21 : - 3 2 ; C 0 !.. ! ! 33 : = 5 3 ; 
POR I : -1 T0 10 DO 
BEGIN 

POR J:=l T0 63 DO DISEGNO!I,JD:=’ 

POR J : = 1 T0 3 DO RIDÓTTA! I, J3 :==0 ; 

POR J : 1 T0 3 DO 
BEGIN 

K: - COL LE J3 ; 

DISEGNO! I ’-I ' ; 

END 

END; 

POR I :=10 DOWN I 0 11-N DO 
BEGIN 

K:~N+I- 10; 

RIDOTTACI,! I := K; 

POR J : = COI.!. 1.1 II - • 1 DO UNTO COLLII 3-K DO 
DISEGNO!I,J3 : = ; 

POR J : =COLLE 1 3 +1 TO COLL E 1 3 + K DO 

DISEGNO! I , J3 : :: = ' =’ ; 

END ; 

WRITELN;WRITELN; 
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FOR I : = 1 TO IO DO 
BEGIN 

FOR J: = l TO 63 DO URI TE<DISEGNOEI,J3>; 

URITELN 

END; 

URI TELN;URITELN 
END; * init * 

PROCEDURE TOGLIERE(N,I,JrINTEGER); 

PROCEDURE MOVIMENTO(DEP,ARR:INTEGER); 

VAR I, J : I NTE'GER ; 

IA, ID,P: INTEGER; * p nessun disco de togliere * 
BEGIN * movimento * 

* trovare il posto e modificare RIDOTTA * 

ID : = 1 ; 

UMILE RI DOTTAIID,DEP3-0 DO ID:=ID+1; 

P; -RIDOTTA!: ID,DEP3 ; 

RIDOTTA!ID,DEP3:=0; 

IA:=10; 

UMILE RIDOTTALA,ARR3O0 DO IA:=IA~i; 

RIDOTTALA, ARR3:=P; 

* togliere- il disco * 

FOR J:=C0LLCDEP3~.l DOUTO COLLEDEP3-P DO 
DISEGNOE ID,J3: = ’ '; 

FOR J:=COLLi:i)EP3 + 1 TO C0LLCDEP3+P DO 
DISEGNOCID, .13: = ' '; 

* mettere il disco * 

FOR J : -"COLL E ARR3- 1 DO UNTO COLLE ARR3-P DO 
DI SEGNO E IA,J 3 ; = '='; 

FOR J;=C0lL EARR3 + 1 TO COLLEARR3 + P DO 
DISEGNOCIA,J3 : - ' = ’ ; 

« disegno * 

FOR I : = 1 * T0 10 DO 
BEGIN 

FOR J:=1 TO 63 DO 

URITE (DISEGNOCI,J1); 

URI TEI. N 
END ; 

URI TELN; URITE!. N; 

E N D ; * movi m e n t o ■» 

B E GI N « s p o s t am e ri t o * 

IF N = 1 THEN MOVIMENTO(I, J) 

ELSE 

BEGIN 

TOGLIERL O!- 1 , I, 6-I-J) ; 

TOGLI EREU,I,J) ; 

T0GI..IERE(N-1,6- I--J, J) 

END 

END; * togliere * 

BEGIN * hi;no i « 

READ(N); 

INIT(N); 

TOGLIERE(N, 1,2) 
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END 
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Ci restano da vedere ancore sicuri i dettagli 
procedure, ina questi, sfortunatamente, dipendono 
dal 1’ iwpleinentazione del Pascei disponibile. 


sulle 
ino Ito 
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6.9. PROCEDURE FORWARD E PROCEDURE EXTERN 


Diciamo PROCEDURE, ma tutto quello che segue e' valido 
anche per le funzioni. 

Non e' molto gradevole dover mettere le procedure 
richiamate da una procedura all'inizio di quest'ultima, come 
appare dall'esempio che segue: 

PROGRAM A; 

PROCEDURE B; 

END; 

PROCEDURE C f 
PROCEDURE 0; 

END } 

END} 

PROCEDURE E} 

END} 

BEGIN 

END. 

La procedure B può’ essere chiamata da A, C, D e E. Le 
procedura D può' essere chiamata solo da C. La procedura C 
può' essere chiamate da A e da E. Le procedure E può’ essere 
chiamata solo da A. 

Sarebbe piu’ naturale poter scrivere il riferimento quando 
serve, ma stendere le procedure piu’ tardi. 

Il Pascal lo permette: e' solo necessario porre le testate 
della procedura che sara' richiamata tra le dichiarazioni 
delle procedure chiamante, facendole seguire delle parole 
FORWARD. Esempio: 

FUNCTION RANDOM <X:reali : REAL}FORWARD} 

La scrittura della procedura chiamata, preceduta da una 
testata abbreviate, verrà poste dopo le END delle procedure 
ehiamante. 

END} 

FUNCTION RANDOM} 

BEGIN 

END} 

Questo modo di procedere assomiglia di piu' a quello che 
si fa abitualmente in Fortran. Ma il Fortran permette di 
richiamare procedure che non fanno ma-ter i e 1 mente parte del 
testo: i sottoprogrammi di biblioteca che vengono compilati 
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indi pendentemente dal programma ehiamante. 

Il Pascal permette anche questo (a seconda delle 
implementazioni) sostituendo la parola FGRUARD con la parola 
EXTERN. E’ anche possibile preparare una biblioteca di 
programmi scritti in altri linguaggi, per esempio Fortran. 
In questi cesi la parola FORTRAN sostituisce la parola 
EXTERN. 


Lasciamo al lettore la cura di documentarsi con precisione 
sulle possibilità' offerte dall'implementazione del Pascal 
che usa, soprattutto riguardo alla possibilità’ di 
utilizzare sottoprogrammi scritti in altri linguaggi. 


ESERCIZIO 6.9. ••• Non esiste in Pascal una funzione standard 
per ottenere numeri pseudo-casuali (come avviene invece in 
Basic). Noi compenseremo queste mancanze scrivendo le 
funzione RANDOM (X) che fornisce un numero reale 
pseudo-casuale compreso tra 0 e 1. Le presenteremo come 
funzione FORWARD. Le chiamate successive saranno della 
forma : 

X:-vaiore iniziale 

.RANDOM (X)... 

.RANDOM (X)... 

E> i d i m o stre m a t e m stic e m e ri t e c: Li e 1 e s e q u e n z e d e f i n i t e ’ 
cos i ' : 

RO - X (valore iniziale qualunque) 

RN + l •= ( molt i pi i catore * RN + incremento) modulo (modulo) 

e’ urie sequenze pseudo-rendom a condizione che i numeri 
(costanti) moltiplicatore, incremento e modulo, siano ben 
scelti (questo e’ il metodo chiamato delle congruenze 
lineari). 


(non ri definire X per le chiamate 
successive dato che e' RANDOM 
che lo r i def i n i scie). 


Or 

j MINDUM--X/S | 


nuovoX- ( fUJLTsX + INCR ) 
modulo MODULO 


f RETURN ) 


t a l e c a so il m o d u 1. o s i o t1 i e n e 


Ad ogni chiamata di RANDOM 
si devono fare le operazioni 
r iportate nello sc heme a 

fianco. S e' una costante 
che fissa la grandezza dei 
n u m e ri d a p r o d u r re. Il c a l * 
colo risulta facilitato se 
si usa MODULO == 2 elevato a 
N, dove Ne’ il numero dei 
bit disponibile sul c a l co¬ 
latore per gli interi. In 
a utom atica me n te. Noi u siamo 
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il taodulo 2 elevato a 16, che e' uguale a 65536. Si constata 
allora che MULT = 25173 e INCR =13849 danno buoni risultati. 
Si ottiene una sequenza di valori compresi tra 0 e 65535 e 
per avere dei valori corapresi tra 0 e 1 si deve dividere per 
S = 65535. 


ESERCIZIO 6.10. - Scrivere una procedura CURVA (F,A,P.) che 
tracci il grafico della funzione F, considerando l’asse 
delle X nel senso di svolgimento della carta. A e B sono i 
l i (a i t i delle ascisse. Tracciare 60 punti rappresentat i v i , su 
60 linee. Si supponga che F sia fornita modificandola con un 
fattore di scala conveniente affinché' risulti Fmin>l e 
Fma>:<100 <per esempio per la funzione seno, si avra’ F(X)=50 
+ 49*SIN<X)). Ciascun punto si ottiene cosi’: se Y ■■= 
TRUNC<F(X>) per la X che corrisponde alla linea considerata, 
si tracciano su questa linea Y punti e poi un asterisco. Si 
prenda esempio dal grafico di SI'N(X) tre 0 e 2PI ( p i greco) . 
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CAPITOLO 7 


FILE SEQUENZIALI 


7.1. PREMESSA 


Vedi soio ora un tipo strutturato molto particolare offerto 
dal Pascal; il tipo FILE. 

Le operazioni consentite sugli oggetti del tipo FILE non 
sono le stesse rispetto a quelle consentite per gli altri 
tipi. Per esempio non si ha una assegnazione del tipo Y;=X 
<che dovrebbe rappresentare la copia del file X nel file Y) 
e neppure un confronto del tipo IF X-Y. 

In effetti, le operazioni consentite sono esattamente 
quelle necessarie per gestire le- entrate e le- uscite¬ 
sequenziali. In conseguenza il tipo FILE sara' associato, 
nelle maggior parte dei casi, e queste operazioni di entrata 
e uscita. Inoltre il Pascal può' consentire la costruzione 
di "file interni" che non corrispondono al tipo di 
operazioni prima citate. 

Una grosse limitazione del sistema e’ che esso può' essere 
applicato solo ai file sequenziali. Nel Pascal standard non 
e' previsto di poter usare l’accesso diretto e quindi si e’ 
privati della comodità’ dell'uso dei dischi. Il Pascal UCSD 
e’ stato esteso in quella direzione, senza introdurre tipi 
supplementari di dati, ma aggiungendo delle procedure 
standard che effettuano delle operazioni fisiche di entrata 
ed uscita con il metodo dell'accesso diretto. 

Questo capitolo sare’ abbastanza corto, dato che il 
soggetto e' già' stato in parte svolto nel Gap. 3. 


7.2. IL TIPO FILE 


Supponiamo di avere le dichiarazioni che seguono: 

VAR ARTICOLO : TYPEARTICOLO 

FIL.E1 : FILE OF TYPEARTICOLO 

esse servono per creare un file sequenziale di nome FILE1 il 
quale e' una sequenza ordinata di oggetti del tipo 
TYPEARTICOLO. Dato che la sequenza e' finita, il primo 
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oggetto e l'ultimo sono determinati. 

I file possono essere formati ds oggetti di qualunque 
tipo, anche se raramente si formano FILE OF FILE! 

In realte’ i piu’ comuni sono i FILE OF CHAR o dei FILE OF 
TYPEARTICQLQ, dove TYPEARTICOLO e' un RECORD. 

Questo e' normale, gli elementi di un file sono le 
registrazioni. 

Le cosa piu’ straordinerie con il tipo FILE e' che, ad 
ogni istante, e' accessibile uno ed un solo elemento del 
file (in una tabella, per esempio, tutti gli elementi sono 
disponibili contemporaneamente). 

Le miglior immagine che si può’ avere di ciò’ si ha 
facendo riferimento alla situazione dell’ingresso o 
dell’uscita sequenziale dei dati. Quando dei dati registrati 
su un nastro magnetico vengono letti, ad ogni istante si ha 
un solo dato al di sopire del quale si trova posizionate le 
testina di lettura e scrittura. Esso e' il dato accessibile. 
Sii perla di una finestra di accesso (che avanza per mezzo 
delle istruzioni PUT e GET). 

L'elemento accessibile del file si chiama, nel nostro 
esempio, FILE18. In alcune macchine il carattere che segue 
il nome invece di essere una "et" (li!) e' un altro carattere 
speciale (come "freccia su" o altro). 

FI LEI® he il ruolo di identificatore di una zone di 
memoria capace di contenere una registrazione (RECORD). 

Le operezioni‘sui file consistono in dei tresferimenii 
fisici tra la zona di memoria (generalmente chiamata buffer) 
e le periferica che supporta il file. 

Per riempire il buffer prima di scriverlo (trasferirlo 
fuori), si può’ usare questa istruzione: 

FILEI@ := ARTICOLO; 
e per utilizzarlo dopo una lettura: 

ARTICOLO := FI LEU? ; 


7.3. SCRITTURA DEI FILE 


La creazione di un file si ottiene con: 


REURITE (FI LEI); 


che fa posizionare all’inizio del 


file, 



seguito da una successione delle seguenti coppie di 
i struzioni: 

FILEll» := ARTICOLO; 

F'UT (FILE1); 

che scrivono gli articoli successivi. 

Queste due ultime istruzioni possono essere concentrate in 
una usando la PROCEDURE standard: 

WRITE (FILE1,ARTICOLO) ; 

la quale evita di gestire il buffer FILE1®. Il secondo 
argomento, che indica cosa deve essere registrato, deve 
necesseriamente essere del tipo base del file. 


7.4. LETTURA DEI FILE 


Si deve per prima cose chiamare la PROCEDURE standard: 

RESET < FILE.l ) ; 

Esse serve per riposizionersi all’inizio del file e per 
trasferire il primo elemento nel buffer. 

In seguito le letture si ottengono con la sequenza: 

ARTICOLO := FILEll?; 

GET <FILE1>; 

GET trasferisce l’elemento daventi al quale si trova la 
testina di lettura nel buffer. Il contenuto del buffer viene 
utilizzato nella successiva coppia di istruzioni 
ARTICLE:=FILEH2; GET. 

In altre parole, si e’ sempre avanti di un GET, e 
precisamente del GET che e’ implicito nella istruzione 
RESET. Procedendo cosi’, si e’ in grado di riconoscere le 
fine del file. In quel momento FILEU? risulta indefinito e 
la funzione booleene EOF(FILEl) diventa TRUE. 

Analogamente a quanto detto per la scrittura, la coppia 
ARTI CLP : = ...;GET...;può’ essere sostituite dalle chiamata 
della PROCEDURE standard: 

READ(FILEI, ARTICOLO); se ARTICOLO e’ di tipo standard; 

<vedi paragrafo 7.9.) 

che posiziona automaticamente la variabile booleana 
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EOF <FILE1 ) 


Notate che READ e WRITE possono riferirsi a piu' dati 
consecutivi. Esempio! 

READ(FILE, ARTICOLOl, ARTIC0L02, ART IC0L03); 


ESERCIZIO 7.1. - FILE1 e' un file di numeri reali. Stampate 
il suo contenuto, ponendo un numero per riga. 

In questo esercizio viene già' posto il problema della 
dichiarazione di un file nella testate di un programma. 
Torneremo sull'argomento piu' avanti. Per il momento notiamo 
che e’ possibile fare delle aggiunte ed un file sequenziale. 
Basta eseguire delle frasi URITE dopo che risulta EOF vero. 
F'er contro, non e’ possibile fare degli aggiornamenti su un 
file sequenziale. Si deve procedere ad una ricopiatura. 


ESERCIZIO 7.2. - Aggiungere il numero (pigreco) alla fine 
del file dell'esercizio 7.1.. 


7.5. DICHIARAZIONI PROGRAMMA 


I file "interni", cioè’ non associati a periferiche di 
ingresso/uscita, devono essere dichiarati come VAR. 

I file "esterni", cioè’ quelli associati a periferiche di 
ingresso/uscita, devono, naturalmente, essere dichiarati 
come VAR, ma essi devono anche essere citati nelle frese 
PROGRAM all'inizio del programma! 

PROGRAM GESTIONE (FILE1, FILE2); 

Come si vede i nomi dei file hanno lo stesso ruolo degli 
argomenti delle procedure. 


7.6. I FILE STANDARD 


Il Pascal conosce due file standard: l’entrata standard 
del sistema chiamata INPUT e l'uscita standard chiamata 
OUTPUT. 

Le componenti di questi due file possono presentare delle 
differenze tra un sistema ed un altro a seconda che il 
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sistema sia interattivo o meno. 

Quando il nome del file non viene citato nelle frasi READ 
e URITE sono sottintesi rispettivamente INPUT e OUTPUT: 

READ (ARTICOLO); 

WRITE (ELEMENTO); 

In EOF e’ sottinteso INPUT; IF EOF... equivale a IF EOF 
<INPUT). . . 

ma la forme completa può' anche essere scritta: 

READ (INPUT, ARTICOLO); 

Le operazioni RESET(INPUT) e REWRITE(OUTPUT) non si devono 
mai scrivere espiicitemente. 

Esse di norma sono eseguite automaticernente all'inizio di 
ogni programma e non devono mai essere eseguite in mezzo ad 
un programma; la stampante o il lettore di schede non devono 
essere riavvolti come un nastro ! Consultate le appendici per 
certe perticolarite’ del CBM in questo campo. 

La RESET ( INPUT) e la RF.WRITE ( OUTPUT ) sono a volte eseguite 
automaticamente a condizione che INPUT e/o OUTPUT siano 
citati nella testata del programma: 

PROGRAM TOTO (INPUT,OUTPUT,FILE 1); 

Questa citazione di INPUT e OUTPUT nella testata del 
programma e' a seconda dei sistemi, obbligatorie (qualche 
volta anche se i file standard non sono utilizzati), 
facoltativa o proibita (come in UCSD). 

I file standard INPUT e OUTPUT sono in effetti dei file 
TEXT. Vedremo quindi altri particolari che li riguardano nel 
paragrafo 7.8.; prima, pero', trattiamo come esercizio due 
applicazioni gestionali. 


7.7. APPLICAZIONI DI GESTIONE 


I problemi gestionali sono il dominio prediletto dei file 
i cui elementi sono del tipo RECORD. Questo permette di dare 
alle registrazioni le struttura voluta. 

ESERCIZIO 7.3. - Le singole registrazioni di un file del 
personale di una azienda hanno le seguente struttura: 

numero impiegato : intero 

cognome :stringa di 10 caretteri 


111 



nome 

indirizzo 

n.tessera assicurativa 

nansione 
livello 


sstringa di 10 caratteri 
sstringa di 30 caratteri 
sintero di 13 cifre (si suppone 
sia accettato dal sistema) 
sstringa di 10 caratteti 
s i ntero 


Il file e' ordinato per numero impiegato crescente. 
Inoltre si hanno delle scheda di aggiornamento distinte de 
un codice che può' esseres 


A per aggiunto; 

L per licenziato; 
PI per modificato. 


Se si tratta di licenziamento, la schede non reca altri 
dati, mentre negli altri due casi essa reca i dati nuovi o 
modificati. Scrivete il programma che crea il nuovo file del 
personale aggiornato. Per semplificare il problema della 
fine dei file supponete che il pacco di schede termini con 
una scheda tappo recante il codice PI e la copia dei dati 
dell’ultimo impiegato del file principale. Cosi’ si 
arriverà' contemporaneamente alla fine dei due file. 
Supponete inoltre che il pacco di schede di aggiornamento 
non contenga errori (se volete aggiungete il trattamento di 
eventuali errori). 


ESERCIZIO 7.4. - Un file contiene due t i pi i scheda; 

primo tipos codice "C", scheda cliente recante il nome e 
l’indirizzo del cliente; 

secondo tipo; codice "B", scheda buono d'ordine recante 
la quantità’ (intero) , la descrizione del= 
l'articolo (stringa 30 caratteri) e il 
prezzo unitario (reale). 

Tutte le schede ordine di un cliente seguono la scheda del 
cliente. Tutti i clienti hanno almeno una scheda ordine. Il 
problema consiste nella stampa delle fatture nella forma; 

Nome cliente 
Indirizzo 


Linea ordine 


Quantità’ Descrizione Prezzo Totale 


Totale; . 

Questi due esercizi mostrano che il Pascal e' comodo per 
trattare appil i c az i on i che si presentano spesso nei problemi 
gestionali. Naturalmente la loro reaiizzazione e' possibile 
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anche in Basic e Fortran, ma magari meno comodamente 


7.8. IL TIPO TEXT 


Il Pascal può’ essere facilmente utilizzato per 
applicazioni di trattamento di testi; infatti esiste un tipo 
standard p<er questo. 

Infatti tutto avviene come se si disponesse di: 

TYPE TEXT = F'ACKED FILE OF CHAR; 
ed anche: 

YAK INPUT, OUTPUT : TEXT; 

I file standard del sistema sono di tipo TF.XT, ma se ne 
possono creare altri. 

Una caretterisiica di questi file e’ che essi sono 
organizzati in linee il cui carattere finale e’ il carattere 
di fine linea. Si hanno di solito 80 caratteri p<er linea per 
INPUT e 132 per OUTPUT. 

Quando in fase di lettura si incontra il carattere di fine 
linea il buffer e' considerato come contenente uno spazio e 
la condizione EOL.N (o EOLN ( FILE ) ) e’ a TRUE. 

II Pascal ha introdotto per i file TEXT le procedure 
READLN e WRITELN. 

WRITELN e’ equivalente e URITE < >; 

URITE (car. fine linea); 

READLN<FILE) e’ equivalente a: 

WHIL.E NOT EOLN<FILE ) DO GET (FILE) ; 

GET < FILE ) ; 

Anche qui se READLN e WRITELN sono usati senza nomi di 
file, INPUT e OUTPUT sono sottintesi. READLN e WRITELN 
possono avere uno o p>iu’ parametri di dati. Essi possono 
anche non averne (e questo vuol dire semplicemente di andare 
» capo), mentre READ e WRITE devono avere almeno un 
parametro. 

Una differenze importante rispetto ai file ordinari e’ che 
le operazioni di lettura e scrittura sui file TEXT 
incorporano le conversioni di tipo; non e’ necessario fere: 
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READ(variabile di t i pio CHAR), si avra’ la conversione 
delle stringhe di caratteri nei numeri del tipo voluto. 

Si ha pero’ una difficolta’ con i tipi strutturati. In 
generale e' necessario un ciclo per leggere gli elementi uno 
per volta, salvo che per il tipo: 


STRING = F’ACKED ARRAY C1..N3 OF CHAR 


ESERCIZIO 7.5. - Copiare un testo conservando le linee. 


ESERCIZIO 7.6. - Leggere un testo formato da lettere e nel 
quale le parole sono separate da spazi. Determinare la 
frequenza di ogni lettera e la frequenza delle coppie di 
lettere (digrammi). 


Un ultimo particolare: in alcuni sistemi, quando un file 
TEXT viene mandato su stampante, il primo carattere di ogni 
linea non viene stampato. Esso viene utilizzato per 
comandare il movimento della carta secondo la seguente 
convenzione: 


+ 

spaz i o 
0 
1 


per restare sulla stessa linea (sovraimpressione) 
per andare a capo 
per saltare una linea 
per cambiare pagina. 


Sono le 


stesse convenzioni usate in Fortran. 


7.9. PROCEDURE READ E URITE RIDEFINITE 


Le procedure standard READ e WRITE sono in generale nelle 
diverse implementazioni del Pascal capaci solo di leggere o 
scrivere variabili di tipo standard. Per trattare variabili 
di tipo strutturato si deve o usare sequenze del tipo: 

ARTICOLO :=F«j F8 := ARTICOLO; 

GET(F); PUT(F>; 

o definire una procedura READ o WRITE o READLN, dato che si 
ha il diritto di "ri defi ni re" gli identificatori standard. 

Abbiamo supposto, per semplicità', di procedere cosi’ 
nella risoluzione delli esercizi 7.4. e 7.5., ma 
incoraggiamo i lettori a tentare la soluzione con GET e PUT. 
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CAPITOLO 8 


gestione: dinamica dei dati 


8.1. INTRODUZIONE ALLE STRUTTURE DI DATI 


Arrivismo ors sd uno dei concetti piu' originali del 
Pascsi: ls gestione dinamica dei dati, cioè' ls 
possibi1its', qusndo dei dsti non sono utilizati, di 
liberare lo spazio di Memoria da essi occupato, per 
dedicarlo ad altri dsti. Naturalmente il Pascal ha 
introdotto un nuovo tipo di dati, il tipo POINTER, per poter 
realizzare quanto detto sopra. 

Per poter apprezzare i vantaggi dei diversi tipi di dati 
che il Pascal permette di trattare, diamo ora qualche 
nozione generale sulle strutture dei dati. In seguito, per 
ogni organizzazione di dati trattata, vedremo quali 
possibilità' offre il Pascal. 

Abbiamo già' trattato un buon numero di strutture di dati. 
Qualunque raggruppamento di dati viene carattetizzato dalla 
sua struttura e dalla sua organizzazione cioè' de: 

. i legami o le relazioni che esistono tra i dati 
dell’insieme (per esempio, i dati sono ordinati o 
classificati?); 

. le operazioni elementari che si possono fere sui dati , 
e, in certi casi, il modo particolare nel quale si possono 
fare alcune operazioni elementari (per esempio, 
nell'organizzazione di una fila d'attesa si può' aggiungere 
un elemento solo dopo tutti gli altri). 

Vediamo subito quali sono le operazioni elementari che 
riguardano in generale qualunque insieme di dati. 


ACCESSO 

La prima operazione da realizzare su un dato appartenente 
a un insieme e’ di potervi accedere per. consul t az i one o 
modific a. 

Nel caso di una tabella di dati, l’accesso ad un qualunque 
elemento e' possibile se si conosce la sua posizione. Se 
questa non e' conosciuta si deve fare una ricerca 
sistematica. Nel caso la tabella sia ordinata, si potrà' 
fare una ricerca dicotomica, guadagnando in rapidità’. In 
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una struttura a liste concatenate bisogna seguire passo 
passo la catene per accedere ad un elemento. 

Alcune strutture impongono delle restrizioni di accesso; 
nelle strutture FILE e' accessibile un solo elemento ad un 
dato istante. In una struttura a fila d'attesa un elemento 
può' essere aggiunto solo in fondo e solo il primo elemento 
e' accessibile. 


AGGIUNTA 

L’introduzione di un nuovo elemento in un insieme (SET) e' 
fac ile. 

In una tabelle si pongono due problemi; se la tabella non 
e' piena e non e' in ordine, l'elemento si aggiunge in 
fondo. Se la tabella e’ ordinate si deve inserire l'elemento 
al posto giusto e spostare gli elementi che vengono dopo. 
Queste inserzione e’ molto piu’ semplice con une strutture e 
liste, come vedremo. Con un file l’aggiunte e' possibile 
solo elle fine, dopo essersi posizionati in fondo al file. 
Con una pila o una fila d'attesa l’elemento aggiunto può' 
s,olo andere in fondo. 


SOPPRESSIONE 

Le soppressione di un elemento di un insieme (SET) e' 
facile. 

In une tabelle esse e’ complicete; si deve o colmare il 
buco creato, o lasciare l'elemento al suo posto marcandolo 
come soppresso. In une pile il solo elemento che può’ essere 
soppresso e' quello che era stato messo per ultimo. In una 
file d'attese e’ quello che ere stato introdotto per primo. 
In un file sequenziale il solo modo per sopprimere un 
elemento e’ di ri copi ere i dati su un nuovo file. 

Tra le strutture ora citate, noi conosciamo bene 
l’insieme, il file sequenziele e la tabella. Queste 
strutture si realizzano molto bene in Pascal, dato che esse 
sono associate ed un tipo, r i spett i veniente SET, FILE e 
ARRAY. Nell'ultimo caso si può’ avere un ARRAY di RECORD. 
Quest’ultime strutture permette di realizzare le altre 
organizzazioni. 

Diamo ore un breve cenno e qualche eltre organizzazione di 
dati ed al modo per realizzarla in Pascal. 
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8.2. LA F'ILA 


La pile e’ una organizzazione caratter i zzata dal fatto che 
i,l solo elemento accessibile e' l'ultimo aggiunto. Esso 
prende il nome di sommità’ della pile. Un elemento può' solo 
essere aggiunto alla sommità'. Esso diventa la nuova 
sommità’. Solo l’elemento che si trova elle sommite’ può’ 
essere prelevato; quello sotto diventa la nuova sommità’. 

Questo e' esattamente il comportamento di una pile di 
piatti. Si dice anche che si segue la regola LIEO, last in, 
•First out (ultimo entrato, primo uscito). 

Questa struttura e' molto importante; esse serve a 
generare gli indirizzi di ritorno dei sottoprogremmi, deto 
che permette le chiamate nidificate. Ad ogni chiamata 
l’indirizzo di ritorno e’ messo in una pila. 

Il ritorno si ottiene togliendo dalla pila l'indirizzo che 
si trova ella sommità’ ed operando un salto a 
quell'indirizzo. 


F'er esempio, qui sotto viene mostrato lo stato di una pile 
per successive chiamate di sottoprogrammi: 


PROGRAM...; 
PROCEDURE A; 
PROCEDURE B; 
END; *lì* 
P.EGJN SA* 
lì; *A1* 

B; *A2* 

END; *A* 

BE6IN 
A; *A3* 

END . 


vuota 


A3 


c: h i a m a t e 
A 


Al 

A3 


pr i ma 
ehiamata 
B 




A 2 



A3 


A3 


A3 


ritorno 
B 


set: onde 
ehiamata 
B 


r i t o r n o 
B 


ritorno 
A 
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ESERCIZIO 8.1. - Data la struttura del programma che segue, 
disegnate gli stati successivi della pila degli indirizzi di 
ritorno. 

PROGRAM...j 
PROCEDURE A; 

PROCEDURE B; 

END; *B* 

BEGIN *A* 

8; *A1* 

END; «A* 

BEGIN 

A; *A2* 

A; *A3* 

END. 

L.a strutture a pile si ritrova anche nella interpretazione 
delle espressioni aritmetiche. La regola e' la seguente 
(supponiamo che tutte le operazioni siano a due operandi); 

. gli operandi sono messi in una prima pila come sono 
incontrati e gli operatori sono messi in una seconda pile. 

. guando si comincia a prelevare dalle pile si prende 
l’ultimo operatore dalla pila degli operatori e si usa per i 
due operandi piu' in alto nella pila degli operandi. Il 
risultato viene posto nella pile degli operandi. 

. prima di mettere nella pila un operatore esso viene 
confrontato con l’operatore che sta alla sommità’ delle 
stessa pila. Se il nuovo operatore ha una priorità' 
inferiore o pari, si toglie delle pile fino ed avere un 
operatore di priorità’ inferiore alla sommità' della pila. 

. quendo si arriva alla fine dell'espressione, si toglie 
dalla pila. 

. quando si incontre una parentesi chiusa si toglie dalle 
pila fino a trovare una parentesi aperta. 

Esempi: a+b*c*d+ e 



e finalmente; 


u 
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(a * (b - c * d> / e + f) * g 



ESERCIZIO fi.2. -■ Disegnare lo stato delle pile per 

calcolare : 

(a + b) * (a - b). 

Come organizzare una pila in Pascal? E' molto facile. 
Basta una tabella per contenere gli elementi della p<ila e 
una variabile supplementare per contenere l'indice della 
somm ita'. 

VAR PILA: ARRAY ILI.. MAXI OF . . . -, 

SOMMIT : INTEGER; 

L’essenziale della procedure IMPILARE (ELEMENTI) e’ 
allora: 

IF SOMMIT = MAX THEN WRITELE! ('PILA PIENA’) 

ELSE BEGIN 

SOMMIT := SOMMIT + 1; 

PILA CS0MMIT3 := ELEMENTI 
END} 

Mentre la procedura DEPILARE! (EILEMENTI) si riduce a: 

IF SOMMIT = 0 THEN WRITELN ('PILA VUOTA’) 

ELSE BEGIN 

ELEMENTI := PILA E SOMMIT 3,- 
SOMMIT := SOMMIT -1 
END -, 

Il principale inconveniente consiste nel fatto che si e’ 
obbligati a fissare (quindi a prevedere) il numero massimo 



di elementi della pila (MAX). Vedremo piu' avanti un modo 
per superare questa limitazione. 


ESERCIZIO 8.3. - Il Pascal permette la recursivita' delle 
procedure dal momento che oltre alla pila per «gli indirizzi 
di ritorno esso mantiene una pii la per ogni argomento e ogni 
variabile locale. Supponete che questo non sia realizzabile. 
Riscrivete il programma HANOI del Cap. 6 (senza disegno) 
sistemando N, I e J in tabelle di variabili globali. Dopo 
scrivete una versione Basic del programma. 


8.3. LA FILA D'ATTESA 


La fila d’attese assomiglia alla pila, solo che la regola 
seguita e' FIFO; first in, first out (primo entrato, primo 
use ito). 

Questa e’ le regola con le quale viene smaltita una coda. 
Si hanno due processi concorrenti: uno, il produttore, 
aggiunge elementi alla fila e li aggiunge alle fine, 
l'altro, il consumatore, prende gli elementi che sono 
presenti da piu' tempo. 

Anche in questo caso, una tabella permette di realizzare 
questa struttura in Pascal. Pero' questa volta occorrono due 
puntatori: PI che punta all’elemento de prelevare, P2 che 
punta alla posizione libera dove può' essere aggiunto un 
elemento. 

Si deve sempre prevedere un numero massimo di elementi per 
la tabella: 


ì 

C 


MAX 

Kpmi m~ ì -- i 

PI P2 


ESERCIZIO 8.4. - Scrivete la parte essenziale della 

procedura METTERE(ELEMENTO) e TOGLIERE(ELEMENTO). 


La tabella viene gestita come un buffer circolare. Se P2 
raggiunge PI, la pila e’ piena. Se PI raggiunge P2 la pile 
e’ vuota. Questo può’ essere notato usando le variabili 
booleane PIENA e VUOTA inizializzate rispettivamente a FALSE 
e TRUE. Se PIENA non viene chiamata la procedura METTI. 
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8.4. LE LISTE 


In una struttura a liste- ciascun elemento ha un 
successivo; pero' gli elementi non sono in ordine. In 
conseguenza ogni elemento e' formato da due parti: il dato 
propriamente detto piu' un puntatore che contiene 
l’indirizzo dell’elemento successivo. Esempio: 

elemento n. i 2 _5__^4 8 

j ALPHA | ~I| | DELTA j ~8~] j GAMMA | 2~ll BETA 1 3 H EPSILON 1 , 5! 

dato puntatore 


Uno speciale puntatore determina qual’e’ il primo 
elemento, oppure, spesso per convenzione, il primo elemento 
e’ il numero 1 nell’ordine. 


L’ultimo elemento della liste possiede uno 
puntatore che con il suo particolare valore indica 
esiste un successivo, per esempio con il valore 0. 


invece: 


OMEGA 

3 

l'ultima 

OMEGA 

H 


speciale 
che non 


si avra' 


e la lista si dice "circolare". 


Quando si he una serie di puntatori per cui ciascun 
elemento punta solo all'elemento che lo precede, la lista si 
dice "reciproca". 

Quando invece si hanno c ontempor-aneemente per ogni 
elemento due puntatori, in avanti e all ' ìndietro, la lista 
si dice "doppie". 

Una lista si dice "multipla" se esistono piu’ serie di 
puntatori che permettono di realizzare diversi tipi di 
ordinementi. 


L’eccesso ed un elemento si ottiene percorrendo le lista 
in base ai puntatori. La soppressione di un elemento e' 
facile; l’elemento da togliere non viene soppresso 
fisicamente, basta aggiornare il puntatore dell'elemento 
precedente in modo che punti all'elemento successivo a 
quello da eliminare. 


121 





L'aggiunta di un elemento e' pure facile. L'elemento da 
aggiungere viene posto fisicamente ella fine delle liste, 
basta aggiornare i puntatori in modo che il suo predecessore 
punti elle giuste posizione del nuovo elemento e questo 
punti al suo elemento successivo. 

Come realizzare questo tipo di strutture in F'escel? E’ 
molto facile, basta una tabella di registrazion i : 

TYPE ELEMENTO = RECORD 

DATO : tipo desiderato; 

PUNTATORE : INTE6ER ; 

END ; 

LISTA ARRAY C1..MAX3 OF ELEMENTO; 

DAR MALI STA : LISTA; 

PRIMO : INTEGER; 

LIBERO : INTEGER; 

PRIMO e’ lo speciale puntatore al primo elemento. LIBERO 
e’ il puntatore al primo elemento libero nella tabella. Ogni 
puntatore contiene l’indice nelle tabella dell'elemento 
successivo a quello considerato. 

Naturalmente la struttura RECORD potrebbe contenere piu' 
puntatori nel caso di lista multipla. 

Si he ancore le limitazione di dover stimare e priori le 
dimensione massima della lista. 


ESERCIZIO 8.5. - Sopprimete il quinto elemento di MAL.ISTA 
(attenzione e' il quinto elemento nell'ordinamento della 
tabelle, me non necesseriemente fisicamente il quinto 
elemento della tabella). 


ESERCIZIO 8.6. - Inserite l’elemento INF OR tre l’elemento di 
rango I e quello di rango I + .1 della lista MALI8TA. 


La lista e’ il prototipo di altre strutture 
rappresentatail i con l’aiuto di puntatori; i grafi e il caso 
parti colere degli alberi. 


8.5. I GRAFI 


Un grafo 
"sommità'" o 


e’ un disegno 
"nodi" collegati 


formato de punti 
tra loro per mezzo di 


c hiameti 
frecce o 
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archi. Quando i legami tra i nodi non sono frecce, ma linee 
non orientate (si dicono anche "spigoli"), il grafo si dice 
"bidirezionale" . 



A B 


corrisponde a 



I grafi sono importanti per le applicazioni; una rete di 
strade si può' rappresentare con un grafo, come pure una 
rete di canali. Gli archi del grafo possono essere associati 
a dei numeri, per esempio distanze o prezzo del pedaggio per 
una rete di strade, portate massima per delle 
canalizzazioni. Il grafo e' detto "pesato". 

Come rappresentare un grafo in un calcolatore? Un primo 
metodo può' essere quello di creare una matrice N >: N se il 
grafo ha N nodi. La matrice sera' booleana se il grafo non 
e' pesato, e tale che A CI,J3 = TRUE se esiste un arco che 
congiunge il nodo I con il nodo J, A CI,J3 = FALSE nel caso 
centrario. 

Una proprietà' interessante e' le seguente: se si forma il 
quadrato logico della matrice : 

2 

A ij £ Aik . Akj 

dove X e' la somma logica (OR) e . il prodotto logico (AND), 
le matrice prodotto e' tele che l'elemento Aij risulte TRUE, 
se esiste un cammino formato da 1 o 2 archi che vanno da i a 
j. Estendendo e considerando le matrice potenze logica di 
ordine P della matrice A, il suo generico elemento risulta 
TRUE se esiste un cammino di al massimo F’ erchi che college 
i due nodi interessati. Oltre la potenza ennesima la matrice 
non evolve piu' e se un generico elemento risulte FALSE e’ 
perche non si ha alcun cammino che congiunge i due nodi 
relativi. 

Questa reppresentezione permette di trattare facilmente 
alcune applicazioni di ricerca di un cammino in un grafo, ma 
risulte un po’ pesante, dato che si devono elaborare matrici 
di ordine N N. 


ESERCIZIO 8.7. -■ Suggerite una reppresentez i one per un grafo 
pesato. 
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Sono state pmoposte altre rappresentazioni che ricorrono 
si puntatori: ciascun nodo punte verso il successivo. Per un 
grafo non pesato si potranno fare queste diehiarazioni : 

TYPE SOnClIT = RECORD 

NONE : STRINO} 

PUNT : INTEGER; 

VAR GRAFO : ARRAY LI.. MAXI OF SOMPIIT} 
e la rappresentazione avra’ il seguente aspetto: 


indice 


NODI 

PUNT 

SUCCI 

B 

SUCCI? 

0 

.... 

SUCCP 

01 


N0D2PUNT. . 


PUNT=K+1 


successivi di NODI 


Ogni nodo e' seguito dai suoi successori. Quando un nodo 
e' considerato come successore il suo puntatore e' a 0. E’ 
solo come testa di lista che il nodo ha un puntatore al 
prossimo nodo testa di lista. 


ESERCIZIO 8.8. - Disegnate la tabella corrispondente al 
grafo disegnato all’inizio del paragrafo. 


Anche qui e' necessario prevedere il numero massimo di 
elementi che può’ contenere la tabella. Quando la tabella 
non e' piena, LIBERO punta al primo elemento vuoto. L'ultimo 
nodo viene riconosciuto perche’ punta verso un elemento 
vuoto. La lista dei predecessori può' essere gestita 
contemporaneamente. 


S.6. ALBERI 


Un albero e' un grafo particolare dove non si hanno mai 
cerchi e dove un nodo può’ avere un solo predecessore. Il 
pirimo elemento si chiama "radice". Gli «-tementi terminali si 
chiamano "foglie". Un esempio molto comune della struttura 
ad albero e’ l’albero genealogico. 

Una possibile rappresentazione e’ la seguente: l'insieme 
dei "figli" di uno stesso "padre" forma una lista nelle 
quale ogni figlio punta verso il fratello che lo segue. 
L’ultimo fratello punta a 0. Ogni padre ha un puntatore 
verso il primo figlio. 

I figli dell’ultima generazione (foglie) puntano a 0. Ogni 
figlio ha anche un puntatore verso suo padre. Lo "antenato" 
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(radice) punta a 0. 

In Pescai le strutture deve essere contenute in un ARRAY 
OF RECORD: 


TYPE GENE = RECORD 

NOME : STRING; 

PADRE : INTEGER; 

FRAT : INTEGER; 

FIGLIO: INTEGER; 

END; 

ALBERO=ARRAY II..MAXI OF GENE; 

VAR FAMIGLIA : ALBERO; 

Esempio: (tre parentesi figure l'indice nelle tebella). 


PIERO (1) 



MARCO <4> GINO (5) 


LUCIO (7) 


ALDO (S) NINO (9) 


Si ha: 

I 2 3 



Dove il primo numero dopo il nome punte el1’indietro, il 
secondo punta a destra ed il terso punta verso il basso. 


ESERCIZIO 8.9. - Trovete il padre di GIANNI. 


Anche qui si deve prevedere il massimo numero di elementi. 
Le strutture e' ehbastanze feci le de trattare. Se per 
esempio si e' dimenticato GIULIO, terzo figlio di PAOLO, 
questo verrà’ aggiunto come decimo elemento e si dovrà’ 
correggere solo il secondo puntatore di GINO per mandarlo a 
10 . 


125 







_LQ_ 

GIULIO 


GINO 


IO 


Un albero nel quale tutti i padri hanno due figli si 
chiama albero binario. Esso interviene nella interpretazione 
delle espressioni aritmetiche. 


Una operazione- abituale sugli alberi e’ la ricerca per 
ordine. Essa consiste nel prendere ad ogni nodo l'elemento 
successivo piu’ a sinistre. Quando si arriva ed una foglia 
si risale e si prende il nodo restante piu' a sinistra. 
L’albero viene percorso dell’alto verso il basso e de 
sinistra verso destra. 


Esempio: per l’albero su esposto l’ordine di percorrenza 


PIERO, PAOLO, MARCO, LUCIO, GINO, GIACOMO, GIANNI, ALDO, 
NINO. 


Per una consultazione di questo tipo e’ comodo servirsi di 
una pila che contenga il numero dell’ultimo nodo esaminato. 
Si "impila" quando si scende lungo l’albero e si "depila" 
quando si risale. 

Ecco terminata la nostre introduzione elle principali 
strutture di dati. Abbiamo visto come possono essere 
organizzate in Pascal usando dei metodi classici e questo ci 
e' servito per far pratica di alcune possibilità' offerte 
dal linguaggio. 

Il difetto principale delle reaiizzazioni trattate fino ed 
ora (per altro esse risultano molto comode) e’ il loro 
carattere statico. Si deve sempre prevedere una dimensione 
massima per le tabelle. Vedremo ora che il Pascal consente 
di non preoccuparsi delle dimensioni massime delle tabelle, 
gestendo direttamente i puntatori ed occupando o liberando 
le zone di memorie in modo dinamico a seconda dei bisogni 
del programma. 


8.7. TRATTAMENTO DINAMICO DEI DATI 


Supponiamo di voler costruire una lista i cui elementi 
sono del tipo: 
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TYPE ELEA = RECORD 

INF : type... ; 

END * 

Il Pascal permette di definire un tipo, il tipo puntatore, 
i cui elementi sono dei puntatori verso gli oggetti del tipo 
ELEA : 

TYPE F’UNT = «ELEA 5 

DAR P , F'R IAO : F'UNT ; 

Le prima linea si legge "tipo F'UNT uguale puntatore verso 
oggetti del tipo ELEA". 

Quale valore assegnare ad una variabile come F'? Le due 
sole assegnazioni possibili sono: 

P : = NIL $ 

F' :~ puntatore verso un oggetto dello stesso tipo di 
quello verso il quale P punta. 

Esempio: P:=PRIA0; 

Le prime assegnazione fa si’ che P punti verso nulla* NIL 
e’ la costante "puntatore vuoto". La seconda fa si’ che P 
punti verso lo stesso elemento che F'RIAO. 

L’elemento verso il quale P punta si indica con P seguito 
dal carattere "et" (@, o da altro). Le parte "dato" 
dell'elemento si indica, come d’abitudine, con Pi?.INE. 

Le variabili puntate si trovano in una zona speciale della 
memoria, la zona dinamica (chiamata in inglese "thè heap", 
i 1 c umulo). 

I puntatori invece sono in una zona statica (lo stack, le 
pila) o in una zona dinamica. In effetti una registrazione 
dinemica può’ contenere puntetori, e questo e’ precisamente 
quello che succede con una lista. 

Non si deve confondere l’effetto di: 

P := U (P punta verso lo stesso oggetto che (I) 
con quello di: 

P@ := Q@ (l’oggetto verso il quale punta P ha lo 
stesso valore che l'oggetto verso il quale punta II). 

Questo viene evidenziato della figura che segue: 
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TYPE PUNÌ = (SOGGETTO ; dopo: dopo: 

VAR P, 0 = PUNT; 



zons zons 

statica dinamica 


Pia non abbiamo ancore visto come creare un oggetto 
puntato. Questo e’ lo scopo della istruzione NEW (procedura 
standard): 

NEW(P) ji 

che riserve nelle zone dinamite lo spezio necessario per un 
oggetto puntato da P. E' necessario che prima sia stato 
definito P come puntatore verso l’oggetto, ed inoltre che 
sia stato definito il tipo dell'oggetto, in modo che il 
sistema sia in grado di definire la quantità’ di memorie 
necessaria per l'oggetto stesso. 

NEW(P) fe tre cose: 

- ricerca nella zone dinamica il primo spezio capace di 
contenere un oggetto del tipo considerato; 

- riserve te 1 e spazio; 

assegna e P il valore dell’indirizzo di memoria 
corrispondente a qMesto spa z io. 

Questo era esattamente quello che noi facevamo prima, 
quando gli oggetti puntati venivano sistemati in un ARRAY OF 
RECORD. Solo che noi dovevamo farlo esplicitamente, mentre, 
con le variabili dinamiche, il lavoro lo fa il sistema. 
I ri o 11 r e noi non do b b i a no piu’ p r e o c c u pare i d e Ila dimensione 
massima della tabella, dal momento che se ne occupa il 
s i sterna. 

Tuttavia, lo spezio di memoria dinamica disponibile non e’ 
illimitato, e, se noi facciamo troppe NEW una dopo l'altra, 
si avra’ un messaggio di errore del tipo "supero di 
capacita’ di menaris". 

Si ha comunque uri enorme vantaggio nel 1 ' ut i 1 i zzo delle 
v a ria bi1i di naniche che pe r me11e il Pascal. Quando ci 
accorgiamo che una variabile dinamica non serve piu’ (per 
e s e di pio, un e 1 e mento di 1 i s t s s o p p r e s s o ) , noi p o s s i a m o 
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liberar* la zona di Memoria occupata scrivendo: 

DISPOSE(P) ; 

Con gli ARRAY OF RECORD potevamo ri si Eternare i 
pseudo-puntator i in modo da rendere inaccessibile l'elemento 
soppresso, pero’ esso restava in memoria. Se noi avessimo 
voluto riutilizzare lo spazio di memoria liberato, avremmo 
dovuto realizzare una gestione abbastanza complicate degli 
spazi liberati? infatti essi sono sparpagliati in una 
tabella. 

In questo caso e' il sistema che pensa a gestire questi 
spaz i . 

NOTE: 


-- Alcune implementazioni del Pascal dispongono di una 
procedura DISPOSE incompleta, che aggiona i puntatori (essa 
fa P:=NIL), me non libera lo spazio corrispondente in 
memoria. 


- Esiste una altre coppia di procedure per la gestione 
della memoria dinamica: MARK e RELEASE. L'uso di queste 
procedure e’ abbastanza complicato e noi non entriamo nei 
dettagli. 


- Le sequenza: NEW(P)? 

NEW(F')? e’ errata. Infatti non si potrà’ 
accedere che al secondo dato creato. Si dovrà’ procedere 
invece cosi’: 

NEW(F') ? 

Q : = P ? 

NEW(F') ? 

e si avra’ che Q8 sara’ il primo dato e P8 il secondo. 

- Ricordiamo ancore che e seconde dei calcolatori viene 
usato o il carattere 8 o il carattere "freccia su" o altro. 


S.S. LISTE DINAMICHE 


Ora siamo in grado di creare le nostre' liste dinamiche. Il 
problema e' che la registrazione del tipo ELEMENTO deve 
contenere, come componente, un puntatore verso un oggetto 
del tipo ELEMENTO. Si e' in presenza di un circolo vizioso: 
per definire il puntatore e’ necessario che sia definito 
l'elemento? per definire l'elemento deve essere stato 
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definito il puntatore. 

Fortunatamente- il Pascal permette di scrivere: 

T YF'E PUNT = 8ELEMENT0} 

ELEMENTO * RECORD 

INFORM : tgpe oggetto} 

SEGUENTE : PUNT 
END} 

VAR P, PRIMO:PUNT} 

X : type oggetto}, 

La diehierazione di PUNT e’, con la procedure FORldARO, 
l'unica occasione nella quale in Pascal si fa riferimento ad 
un oggetto non ancore definito. 

In partenza la lista e' vuota. Noi scriviamo: 

PRIMO : = NIL} 

In seguito, creiemo un posto per uri oggetto che leggiamo 
su una scheda: 

NEW(P)} 

READ < Pi*. INFORM) } oppure READ < X > } 

P8. INFORMIX} 

(vedere note ella fine del 
Cap. 7. ) 

Noi assegnemo al puntetene che si trove nell'elemento il 
valore di PRIMO (cioè NIL): 

Pii.SEGUENTE := PRIMO} 

poi facciamo puntare PRIMO verso l'elemento: 

PRIMO :=P} 

Ripetendo questo procedimento, creiemo tutte le nostre 
liste. Bisogna notare che gli elementi vengono letti in 
ordine inverso a quello delle liste} il procedimemnto di 
lettura di un nuovo elemento lo fa inserire in cima alla 
lista: 

PROGRAM LETTLISTA} 

(diehiarazioni precedenti) 

BEGIN 

PRIMO : = NIL.} 

READ(X)} 

WHILE NOT EOF DO 
BEGIN 
NEW(P)} 

PS.INFORM :=X} 
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P@.SEGUENTE :=PRIMO; 

PRIMO :=P, 

READ(X) ; 

END; 

END. 

In altre parole, con questa tecnica si forma una pila, dal 
momento che l'ultimo elemento introdotto e r il primo 
accessibile. Per costruire la lista, questo non e* molto 
fastidioso; basta presentare le informazioni in ordine 
inverso sulle schede dei dati. 


ESERCIZIO S.10. - Leggere la lista supponendo che gli 
elementi siano nell’ordine. Si potrebbe anche leggere come 
fatto sopra e poi sistemare tutti i puntatori. 


ESERCIZIO 8.11. -■ Cose dovrebbe essere cambiato per ottenere 
una lista circolare? duale problema può’ essere semplificato 
dall’uso di una lista circolare? 


L’operazione fondamentale per un tale tipo di lista e' 
quella di percorrerle nell’ordine. Questo permette di 
stamparne tutti gli elementi o di rispondere a domande del 
tipo: esiste un elemento il cui valore e'...? 

Riportiamo, qui sotto, l’esempio della stampa della lista 
completa. Le dichiarazioni sono uguali alle precedenti. 

P : --PRIMO 
WHIL.E PONI!. DO 
BEISI N 

URI TELN (P@.INFORMI; 

P :== P® . SEGUENTE ; 

END; 


Altre operazioni frequenti sono le soppressione o 
l'inserimento di un -elemento. Se supponiamo che il dato, nei 
nostri elementi, sia di tipo STRINO (dei nomi), l’operazione 
di soppressione della parola ’JOJO’ si scriverà' come segue 
(supponendo che le parola esista nelle lista): 

P : =PRIMQ ; 

IF P8.INF0RM =’JOJO’ 

THEN PRIMO := Pii. SEGUENTE 
ELSE BEGIN 

UH IL E P li . IN FORM < > ’JOJO’ DO 
BEGIN 

PREC : ”F' ; 

P : = Pi» . SEGUENTE s 
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END; 

PREC@.SEGUENTE ; =P@.SEGUENTE ; 

END; 

-DISPOSE ( P ) ; 

Ora vogliamo inserire ’LULU’ dopo 'JOJO': (di ehisrszione 
supplementare : VAR Q : PUNT;). 

P : = PRIMO; 

UMILE P@. INFORMO'JOJO’ DO P : =P8. SEGUENTE ; 

*P punta verso JOJO* 

NEW(Q); «viene creato il posto per LULU* 

QS.INFORM s= 'LULU'; 

Oe.SEGUENTE : = P@.SEGUENTE; 

P8.SEGUENTE ;=Q; 


ESEERCIZIO 8.12. - Considerate un caso di inserzione piu’ 
delicato: inserire 'LULU' prima di 'JOJO'. 


ESERCIZIO 8.13. - Si vuole costruire una lista doppia, cioè' 
con due puntatori in ogni registrazione; uno verso 
l’elemento seguente ed uno verso l’elemento precedente. Si 
hanno due puntatori esterni: PRIMO e ULTIMO. Supponete che 
le lista diretta sia già' costruita. Si tratta di costruire 
la lista inversa, cioè’ di definire i valori del secondo 
puntatore. 


Ora abbiamo visto i principali modi di trattare i 
puntatori. Quelli concernenti le liste si adattano anche ai 
grafi e agli alberi, con 1’appropriato trattamento dei 
puntatori. 

La conclusione che si può’ trarre de questo capitolo e’ 
che l'esistenza della gestione dinamica delle variabili in 
Pascei compensa del1’essenze delle dimensioni variabili per 
le tabelle. In realta' l'importanza delle dimensioni 
variabili e’ quella di poter realizzare delle procedure 
generaiizzate e di compilarle una volta sola. Pero’ con i 
progressi ottenuti nelle tecnica delle compilazioni, risulte 
sempre meno fastidioso dover ricompilare un programma. 

1 ri assenza delle dimensioni variabili, se si desidera 
ottenere un programma abbastanza generaiizzato, si deve 
assegnare una dimensione massima superiore elle necessita’ 
attuali, in modo da lasciare un margine di sicurezza. Si 
rischia pero’ di superare le capacita' delle memorie. E’ per 
questo che un uso combinato delle diverse tecniche può’ 
risultare molto redditizio. 
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Supponiamo di dover leggere delle registrazion i senza 
sapere quante sono, e che ogni registrazione contenga molte 
informazioni, e che si debbano ordinare le registrazioni in 
ordine alfabetico in base a dei nomi. 

Le registrazioni verranno sistemate nella zona dinamica, 
ma i puntatori saranno in una tabelle nella zona statica. 

L'algoritmo di ordinamento porterà' sulla tabella dei 
puntatori sui quali saranno effettuate permutazioni fino ad 
ottenere che l'ord i ne dei puntatori sia quel lo degli 
elementi ordinati. PUNTII.ELEM sera' l’elemento iesimo 
nell’ordinamento. 

Le dichiarazioni essenziali saranno le seguenti: 

TYPE PTR = SELEM; 

E LEM = RECORD 

COGNOME : STRING; 

NOME : STRING; 

DATANASC : STRING; 

SPOSATO : BOOLEAN; 

IMPIEGATO : STRING; 

INFORM : type...; 

END; 

VAR PT : ARRAY E1..1003 OF F‘TR;*si suppongono meno di 

100 elementi* 

X : PTR; «variabile ausiliaria* 

N : INTEGER; «numero elementi* 

Le istruzioni essenziali saranno le seguenti: 

Lettura dei dati: 

N := 0; 

NEW(X ) ; 

READ <X@); 

UMILE NOT EOF DO 
BEGIN 

N := N+l; 

PUNÌ IND := X; 

NEW ( X ) ; 

READ <X@); 

END 

Ordinamento: 

REFEAT 
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1 TO N--1 DO 


FQR I := 

BEGIN 

IF PUNT E I 3@.NOM>PUNT EI+13@.NOM 
THEN SCAMBIO 

END 

UNTIL ECH = Oj 

La procedura SCAMBIO sara’: 

PROCEDURE SCAMBIO; 

BEGIN 

ECH := 1} 

X ;= PUNT E I 3} 

PUNTE 13 := PUNTE 1 + 13,- 
PUNTCI+13 := X} 

END} 


ESERCIZIO fl.14. -■ Scrivere la parte di programma che stampe 
i dati ordinati. Si può’ ritrovare l’ordine di partenza? 


Consigliamo vivamente il lettore, servendosi degli esempi 
riportati, di scrivere il programma completo. Siamo stati 
obbligati a prevedere una tabella di 100 elementi, me questo 
non e’ grave dato che ogni puntatore occupa, di norma, poco 
spazio, e comunque meno di quello occupato da un elemento. 
Quello che sarebbe stato grave, sarebbe stato il dover 
riservare spazio per 100 registrezioni. Al contrario si 
occupa solo lo spazio per N elementi. 


ESERCIZIO S.15. - Si e’ consumato esattamente lo spazio 
corrispondente ad N elementi? 

DOMANDA: Una FUNCTION può’ essere del tipo puntatore 

(risultato = puntatore)? Un argomento può’ essere un 
puntatore? 

- Si: per esempio, FUNCTION PO <P:PTR) : PTR} 
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CAPITOLO 9 


C O M C L_ U S I O M I s I L F' U M T O £> LI L_ F‘ A S C A L 


9.1. CRITERI PER LA SCELTA DI UN LINGUAGGIO 


E' ore giunto il momento di fere- il punto sui pregi e i 
difetti del Pascal. 

Passeremo in rassegne le quelita' che si ritengono 
generalmente auspicabili per un linguaggio di 
programmazione, ed esamineremo e quele gredo il Pescai 
possiede queste qualità', confrontandolo con i suoi 
c:onc orrent i . 

Una difficolta' e' che certe ceratteristiche di un 
linguaggio possono essere considerate dei pregi o dei 
difetti a seconde del punto di vista dal quale si guardano. 

In conseguenza i vantaggi di un linguaggio devono essere- 
valutati in funzione delle applicazioni. Tenteremo di fare 
questo per categorie di applicazioni alla fine del capitolo. 


9.2. TRATTAMENTI PERMESSI 


La prima cosa da esaminare in un linguaggio sono le 
operazioni disponibili. Al livello piu' basso significa 
considerare gli operatori e le funzioni presenti, ed un 
livello piu' elevato definire i tipi di applicazioni che 
possono essere affrontati. 

Da questo punto di viste, il Pascal e' ragionevolmente 
potente. Esso possiede meno operatori aritmetici dell'APL e 
possiede poche funzioni matematiche, me l'utente può’ 
definire le proprie funzioni come desidera, e troppe 
funzioni -create per motivi di concorrenza - nuoc. i ono alle 
portabilità' del linguaggio. 

Una deficienza può’ essere (e questo e’ risolto in UCSD) 
la mancanza di funzioni sulle stringhe di caratteri. 

Fanno parte di questo gruppo di ceratteristiche i modi con 
i quali si piuo' accedere alle risorse della macchina. Si ha 
un compromesso tre l’uso di un linguaggio evoluto, che 
normalmente non permette che un accesso limitato e poco 
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controllato a risorse come i registri interni, e l'uso del 
linguaggio macchina, che per definizione autorizza questi 
accessi. 

Alcuni linguaggi evoluti permettono di accedere alle 
possibilità’ del linguaggio macchina. E' il caso del PL/M <o 
linguaggi similari) sui microprocessori, e anche un po' il 
caso del Basic (come le istruzioni POKE e PEEK, USR is¬ 
simi 1 i ). 

Il Pescai non offre alcuna possibilità' in questo campo 
per delle ragioni di portabilita'. 

Sempre nello stesso gruppo, le strutture elaborative 
definiscono la forma dei programmi che possono essere 
scritti con il linguaggio. 

Qui si ha un punto forte del Pascei, che incorpora le 
strutture della programmazione strutturata. Questo e' un 
vantaggio indiscutibile, soprattutto nelle fase di 
apprendimento del linguaggio. I programmi sono molto chiari 
e si può’ costruire qualunque strutture partendo de un 
piccolo numero di strutture standard. 

Infine, molto determinente per capire quali tipi di 
elaborazioni il linguaggio consente, e' l'insieme dei tipi e 
delle strutture di dati che si possono definire e trattare. 

Da questo ounto di vista il Pascal e’ il linguaggio piu' 
ricco: oltre ai tipi abituali di dati (interi, reeli, 
booleani, carattere), l'utente può' definire i propri tipi. 
Per quanto riguarda i tipi strutturati, il Pascal possiede 
le tabèlle (come in Basic e in Fortran), le strutture 
gerarchiche (come in Cobol e in PL/1), ma anche gli insiemi, 
i puntatori, ecc .. . . 

La sole debolezza da questa parte sono alcune restrizioni 
sui numeri reali (una sola gamma di precisione disponibile, 
impossibilita’ di definire degli insiemi o degli intervalli 
di numeri reali) e l'assenza nel Pascal standard delle 
istruzioni per trattare le stringhe di caratteri. Si deve 
notare che quest’ultima cosa e' corretta nel Pascal UCSD. 


9.3. FACILITA’ DI SCRITTURA 


La seconda quelita’ che poniamo in evidenze per un 
linguaggio di programmazione e' la facilita' di scrittura. 
Del punto di viste della "liberta' di scritture" il Pascal 
e' ben messo. Le restrizioni sugli spazi bianchi sono 
ragionevoli e favoriscono una adeguata impaginazione. 
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Le restrizioni sulla punteggiatura ( i ;) sono un po' piu' 
delicate, ma sono logiche. E' ragionevole che le principali 
parole chiave siano riservate. 

Facciamo notare che gli utenti piu' accorti non desiderano 
che un linguaggio sia troppo facile da scrivere. Inoltre se 
la scritture e’ troppo facile, questo incoraggia le cattive 
abitudini senza apportare reali vantaggi. E' idiota inserire 
degli spazi nelle parole chiave, e’ insensato scegliere un 
identificatore identico ad una parola chiave, anche se il 
lingueggio utilizzato consente di farlo! 

Per contro, il Basic che proibisce che un identificatore 
contenga una parola chiave e’ troppo restrittivo. Da questo 
punto di vista il Pascal tiene il giusto mezzo. 

Una caratteristica che favorisce la stesura dei programmi 
e’ il "grado di simbolizzazione" del linguaggio (vedere Gap. 
3.). Noi abbiamo già' visto che il Pascal e' ben messo de 
questo punto di vista; esso permette di attribuire un nome 
simbolico ai sottoprogremmi (e questo non e' permesso del 
Basic), alle costanti e anche ai tipi. 

La "concisione" di un linguaggio e’ nello stesso tempo un 
pregio e un difetto. Una qualità' perche' i linguaggi troppo 
verbosi finiscono per essere antipatici; e' fastidioso dover 
scrivere molte linee per una operazione da nulla 
(confrontere con il Cobol). 

Ma questo può’ anche essere un difetto, perche' va a 
diminuire la leggibilità' del programma. APL, per esempio, 
permette di scrivere una elaborazione abbastanza complesse 
in una sola linea, ma un programma dove si sfrutti molto 
questa possibilità’ diventa difficile da comprendere. 

Anche a questo proposito il Pascal dimostra un ragionevole 
equilibrio; senza gli eccessi del l’APL., esso permette delle 
scritture semplici, sfruttando le costruzioni della 
progremmazione strutturate. 

La necessita’ di dichiarare tutte le variabili nuoce elle 
concisione, ma essa e’ per altro molto utile alla 
leggibilità’ del programma ed obbliga il programmatore a 
fare una buona preparazione per il suo programma pensando 
perirne e tutte le variabili da utilizzare. 

La “facilita' di apprendimento" del linguaggio si collega 
alle ceretteristiche ora esaminate. Sebbene un po’ meno 
facile del Basic (il programma piu’ semplice del calcolo 
delle superficie di un cerchio e’ pdu’ lungo in F'ascel che 
in Basic a causa delle diehiarazioni iniziali), il Pascal e' 
molto facile da affrontare. In effetti, ricorrendo alle 
programmazione strutturata e' possibile programmare 
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qualunque procedura usando un piccolo numero di strutture 
standard. D’altre parte il Pascal non ha quella che può’ 
essere ritenuta una barriera eretta contro i principianti, 
ci riferiamo al FORMAT. 

Usando le struttura recursiva delle definizioni, si arriva 
abbastanza presto in Pascal a dei programmi complessi, 
difficili per i principianti. Ma bisogna anche dire che il 
Pascal e' il linguaggio che permette, ad un livello piu’ 
elevato, di abbordare il piu’ facilmente possìbile nozioni 
d'informatica teorica, come la recursivita', i puntatori e 
altro. 

Vediamo ora due qualità' molto importanti per la scelta di 
un linguaggio di programmazione. L'utilizatore avra’ un 
considerevole aiuto dal fatto di poter utilizzare un gran 
numero di programmi già' scritti da altri. Perche’ questo 
sia possibile sono necessarie due cose: 

-- Usare un linguaggio molto diffuso per poter trovare 
già' scritti programmi validi su diversi argomenti. 

- Poter adattare al proprio sistema un programma scelto, 
senza troppa fatica. Questo e' il problema della 
portabi1ita'. 


9.4. DIFFUSIONE DEL LINGUAGGIO 


Attualmente il Pascal e' battuto da altri linguaggi su 
questo punto. Notoriamente del Basic nel campo dei Personal, 
e dal Fortran sui mini e sui grossi calcolatori. 

Ma questa situazione evolve rapidamente, e si può’ dire 
che presto tutti i Personal avranno il Pascal (pero’ bisogna 
comprare il compilatore e questo he un costo). Attualmente 
il Pascal e' un linguaggio abbastanza diffuso, e, tenendo 
conto dell’interesse che suscita, la sue diffusione 
aumenterà' rapidamente. 


9.5. PORTABILITÀ' 


Si dice che un programma e’ "portabile", quando scritto 
per una macchina A, esso può’ essere utilizzato senza 
modifiche su una macchina B (naturalmente dando gli stessi 
risultati!). 

Le portabilità’ e’ un fatto che da’ credito al linguaggio 
utilizzato. E' in parte proprio per una ragione di 
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portabilità' che sono stati introdotti i linguaggi evoluti, 
per superare la non portabilità’ dei linguaggi macchine. 

I nemici della portabilità' sono: le restrizioni del 
linguaggio, le estensioni, le esigenze particolari dovute ai 
sistemi di elaborazione. 

I creatori del Pascal hanno combattuto a fondo questi 
nemici per assicurare al linguaggio la massima portabilità'. 
Il miglior mezzo per evitare le varianti che rischiavano di 
essere introdotte dagli autori dei diversi compilatori era 
di fornire il cornpilatore insieme al linguaggio. E’ quello 
che hanno fatto gli autori: essi forniscono un compilatore- 
scritto in Pascei semplificato. Per realizzare il Pascal su 
una determinata macchina, basta scrivere nel linguaggio 
proprio della macchina un interpretatore del Pascal 
semplificato. 

Da cosa dipende allora il fatto che, sebbene tutti gli 
autori sembrano riuniti per assicurare una perfetta 
portabilità’, noi non abbiamo mai smesso nei precedenti 
capitoli di segnalare le differenze tra le diverse macchine? 

Ebbene questo dipende dal fatto che la versione della 
quale noi abbiamo parlato, detta Pascal Zurich, aveva alcune 
restrizioni veramente pesanti (notoriamente la mancanza 
della elaborazione delle stringhe di caratteri e l'assenza 
dei file ad accesso diretto). 

E' per questo che un’altra versione, il cui scopo era di 
compensare questi difetti, e’ stata messa e punto 
all’Università' di California a San Diego. 

II Pascal UCSD si presenta, anch’esso, sotto forma di 
compilatore scritto in un linguaggio intermedio, il codice 
P, ed e’ sufficiente interpretarlo sul calcolatore di cui si 
dispone. 

A queste fondamentale caratteristice si aggiungono le 
varianti minori che sono necessarie per passare da una 
macchina all’altra, dovute al diverso numero di bit per 
parola in ogni macchina, per esempio: la cardinalita' 
massima del tipo base di un insieme. 

In questo stesso ambito, la precisione dei numeri reali 
può’ dare dei problemi piu’ gravi nel calcolo scientifico. 

Il difetto del Pascal al riguardo e' quello di autorizzare 
un solo t i pio di numeri reali, che, per contro, offre una 
precisione diversa a seconda delle macchine. Quindi, e 
questo e' il difetto piu' insidioso della portati i1ite’, dei 
programmi identici gireranno su diverse macchine, ma essi 
rischieranno di dare risultati diversi se si accumulano 
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degli errori di arrotondamento. 

Questo e' compensato in Fortran, dove, sulle macchine che 
danno meno precisione, si può' ricorrere ai numeri reaii in 
doppia precisione, e questo c omporta una modific a < non 
troppo pesante) del programma, ma si ha portabilità' 
maggiore a livello dei risultati. 

La vera soluzione di questo problema si ha nel PL/1 dove, 
per ogni variabile reale si può' chiedere il numero di cifre 
significative desiderato. La' si ha una completa 
portabilità’ ed e' deplorabile che il Pascal non abbia 
ripreso questa tecnica. 

Dunque, e’ questo e’ un peccato, nonostante le buone 
intenzioni manifestate dai suoi creatori, "fi Pascal non e' 
dotato di una perfette portabilità’": esso rimane nel 
plotone dei linguaggi concorrenti. 


9.6. CONCLUSIONI 


Noi ora abbiamo visto i pregi e i difetti del Pascal. 
Bisogna riconoscere che il bilancio e' molto positivo e, in 
effetti, tutti i linguaggi apparsi dopo il Pascei si 
ispirano direttamente ad esso. 

E’ il caso, notoriamente, del linguaggio ADA, scelto del 
Dipartimento della Difesa degli Stati Uniti, linguaggio che 
si dichiara riunisca tutti i possibili vantaggi. E’ steto 
formato un comitato per proporre un Pascal ANS (steso come 
il Cobol ANS) che, noi speriamo, correggere’ i difetti che 
abbiamo segnalato. 

Noi non diremo, come fanno alcuni, che il Pescai 
soppianterà’ tutti gli altri linguaggi, perche' i linguaggi 
non scompaiono cosi' facilmente (ricordate da quanto tempo 
e’ stata annunciata la scomparsa del Fortran), ma, in ogno 
modo, il Pescai ha diritto a un posto nel plotone di teste 
dei linguaggi di programmazione. 

Per riassumere le nostre conclusioni in funzioni delle 
diverse categorie dei possibili utilizai, prenderemo in 
prestito la presentazione fetta dalla rivista "L’Ordinateur 
Individuel", limitandoci agli elementi essenziali. 
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9.7. UTILIZZO SUI PERSONAL 


A FAVORE 

. Pascei UCSD e' <o sere' el piu' presto) disponibile sulle 
quasi totalità' dei Personal. 

. Chiarezza dei programmi grazie elle progremmezione 
strutturata. 

CONTRO 

. Necessita un Persone! con configurezione di gemme alte 
(memoria e dischetti). 

. Coste abbastanza comprare il lingueggio. 

. Pascal non porta vantaggi nelle normali appiicazioni, per 
le quali risulte piu’ complicato del Cesie. 

. Esistono meno programmi scritti in Pascal che non in 
Besic . 


9.8. UTILIZZO NELL’INSEGNAMENTO 


A FAVORE 
. Favorisce 
e permette 
degli altri 
. Permette 
informatica 
d i n e m i c h e ) . 


l’insegnamento delle programmazione strutturata 
di inculcare buone abitudini piu' facilmente 
1inguaggi. 

di abbordare facilmente alcune nozioni di 
teorica <recursivita ' , tipi di dati, strutture 


CONTRO 

. Piu’ difficile- de affrontare del Basic per i pr i nc i p i ant i . 
A nostro avviso esso si impone se si vuole raggiungere un 
sito livello teorico, me il Basic si impone se si vuole 
imparare a programmare il piu’ rapidamente possibile una 
semplice appiicazione. 


9.9. UTILIZZO PROFESSIONALE 


Le chiarezze dei programmi, ottenute grezie elle 
programmazione strutturata e' qui molto importante, può' 
darsi anche piu’ di qualche enno fe, del momento che questi 
tipi di programmi sono diventati piu' lunghi e complicati. 
Tutto ciò’ che diminuisce il costo dello sviluppo e della 
messa a punto dei programmi e' fondamentale nel 1'utilizzo 
professionel e. 

Per essere piu’ precisi, suddividiamo questo gruppo i ri tre 
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sottogruppi! di appi i cszi on i . 


CALCOLO SCIENTIFICO 

Un elemento sfavorevole importante e' il modo nel quale il 
Pascal tratta i numeri reali. L'impossibilita’ di definire 
le precisione desiderate (possibile in modo ridotto in 
Fortran e in alcuni Basic con le variabili a doppia 
precisione, e possibile completamente in APL. e soprattutto 
in PL/1) e’’, per il calcolo scientifico, uno svantaggio 
certo che pone il Pascal in cattiva luce in questo ambito. 

Ammesso questo le altre caratteristiche del Pascal sono 
favorevoli al calcolo scientifico. 

PROBLEMI GESTIONALI 

Abbiamo già' visto su alcuni esempi che il Pascal e’ un 
buon linguaggio per i problemi gestionali, soprattutto 
gres i e alla poss ibi 1 ite' di def i n i re de i dat i c. ompost i nella 
struttura RECORD. 

Per contro, l’assenza dell’eccesso diretto e del 
trattamento delle stringhe di caratteri e’ molto limitativo 
nel Pascal Zurich. Solo una versione UCSD che consente 
l'accesso diretto e le stringhe di caratteri e' utilizzabile 
comodamente per i problemi gestionali. 

In conseguenza controllate bene le caratteristiche del 
Pascal che vi propongono prima di acquistarlo. 

RICERCA IN INFORMATICA 

Questo campo, dove si fa appello alla reeursivita’, ai 
dati dinamici, agli insiemi,ecc...e' il dominio ideale per 
il Pescai. 

Il Pascal e’ eccellente per qualunque ricerca su algoritmi 
non numerici. Si può' anche utilizzarlo con un certo 
successo nella stesure di sistemi operativi. 


9.10. LA QUESTIONE DEL RENDIMENTO 


Queste questione non e’ ancore stata affrontata in questo 
libro. Alcuni mettono in evidenza il fatto che il Pascal, 
essendo per meta' compilato e per mete’ interpretato (vedere 
App. C), dovrebbe dare prestazioni superiori al Basic che e' 
interamente interpretato (se il Pascal avesse un cosi’ elto 
rendimento non necessiterebbe di tanta memoria come i 48K 
dell’Apple, uno dei Personal sul quale e’ stato realizzato). 

Per prima cosa, il fatto di essere interpretato (cioè' 
tradotto istruzione per istruzione, con esecuzione immediata 



di ogni istruzione), o compilato (cioè' tradotto in blocco e 
poi eseguito in blocco) non dipende dal linguaggio. Questo 
dipende dalla implementazione considerata. Infatti esiste 
qualche irnplementazione interpretativa (leggete 
conversazionale) del Fortran o del PL/1, anche se questi 
linguaggi sono di solito compilativi. Inoltre esistono delle 
versioni compilate del Basic, chiamato allora CBASIC, anche 
se il Basic e’ in generale interpretativo. Come si sa, la 
compilazione rende l'esecuzione piu' veloce che nel caso 
dell’interpretazione. 

Il fatto che nelle implementazioni attualmente sul mercato 
(niente impedirà' di realizzarne altre interamente compilate 
e la Texas propone un Pascal compii lato sui suoi 
microcalcolatori basati sul Microprocessore 9900, o 
interamente interpretete) il Pescai sia misto (si ha 
dapprima una compilazione del Pascal in un linguaggio 
intermedio e poi una interpretazione del linguaggio 
intermedio) rischia piuttosto di conferirgli gli svantaggi 
dei due metodi ! 


La sole ree! i zzaz i one del Pascal dove- tutti gli elementi 
concorrono a dare la massima velocita' e' quella della 
Pascei Microengine di Western Digital. In questa 
reaiizzazione, il processore ha come linguaggio macchina il 
linguaggio intermedio P nel quale il Pescai e’ compilato. Le 
velocita' e' allora quella di un sistema compilato. 

Me, ripetiamolo, questi confronti si riferiscono alle 
reaiizzazioni del linguaggio e non alla sua natura. 

Noi non possiamo qui decidere completamente se si deve 
utilizzare il Pascal. Voi dovete fare le vostre scelte in 
funzione delle vostre applicazioni, il nostro ruolo era 
quello di passare in rassegna le caratteristiche piu’ 
importanti da esaminare in vista di queste scelte. Speriamo 
di aver assolto al nostro compito. 

Alcuni troveranno che siamo stati troppo critici verso il 
Pascal, ma nulla nuocerebbe di piu' all'espansione di questo 
linguaggio di un’armata di utenti scontenti perche’ convinti 
ad una cattiva scelta da proseliti troppo attivi. 
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APPENDICE A 


PR DGRAflMAZ I ONE STRUTTURATA IN 

& A 3 I C 


Il Pescai e’ ststo inventato soprattutto per realizzare 
facilmente la programmazione strutturata e per presentarla 
bene, ma anche gli altri linguaggi consentono di 
realizzarla. Vediamo questo piu' in dettaglio per il Basic. 


LE STRUTTURE DI BASE 

Il Basic non possiede a priori le strutture di base della 
programmazione strutturata: 

se...allora...se no 
ripetere...fino a che., 
fintanto che... fere... 


ma queste strutture possono essere simulate con l'aiuto 
delle istruzioni di salto del Basic. 


Le forma ridotta "se..allora.." e' 

direttamente in BAsic da "IF..THEN..". 


reaiizzebile 


Quando si devono eseguire parecchie istruzioni se la 
condizione e' verificata: in Pascal: 

IF..THEN 
BEGIN 
i str.1 ; 

istr.nj 
END 


si può’, in alcuni Basic, scrivere le istruzioni una dopo 
l'altra dopo il THEN separandole con i due punti <:), cosi': 


IF...THEN istr.l: istr.2: ....: istr.n 

Questo e' il caso del Basic Microsoft (PET, TRS) ma si 
hanno due limitazioni: 

- la sequenze di istruzioni deve stare sulla stessa linea; 

- questo nuoce all'impaginazione del programma. 


In ogni ceso si può' ricorrere ed una simulazione 


come 



per il caso generale sotto riportato. Alcuni Basic (pochi, 
per le verità') possiedono l ' i struzione: IF...THEN...ELSE. 
In tutti i casi si può' procedere cosi': 

.(e) - IF NOT condizione THEN GOTO n 

- REM SI condizione 

- .... (istruzioni de eseguire se la condizione 

- .... e' verificata) 

- GOTO p 

n REM NO condizione 

- .... (istruzioni de eseguire se le condizione 

- .... non e' verificata) 

.. (seguito) 

.(b> - IF condizione THEN GOSIJB n: GOTO p 

- ... (istruzioni per ELSE) 

p (seguito) 

n .... (sottoprogremme de eseguire se le 

- .... condizione e' verificata) 

-- RETURN 

Notate che il ricorso ed un sottoprogremme del ceso (b) 
può' essere raccomandabile anche in Pescai. 

Le strutture "ripetere.fino e...." si codifice come 

segue : 

.(c) p IF condizione-erresto GOTO n 

- .... (istruzioni da ripetere) 

- GOTO p 

n .... (seguito) 

Notate che in molti Basic THEN GOTO e’ sovrabbondante e 
basta usate o l'uno o l'altro; se nel vostro caso questo non 
e', aggiungete THEN dove mence. 

La simulazione di cui sopra non e' del tutto esatta. 
Infatti, se durante il primo passeggio le condizione-arresto 
e' già' verificata, le istruzioni da ripetere non vengono 
mai eseguite. In F'escel con REF'EAT. . . UNT IL. si he almeno une 
esecuzione. Possiamo usare la forma (d> che segue: 

.(d> p REM RIPETERE 

- .... (istruzioni da ripetere) 

-- IF NOT cond i z i one-erresto GOTO p 

- .... (seguito) 

Per le sequenze WHI L.E. . . DO. . . , invece, le istruzioni de 
ripetere non devono essere mai eseguite se la condizione non 
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e' realizzata all'inizio. Da cui la sequenza: 

.(e) p IF NOI condizione GOTO n 

- .... (istruzioni da ripetere) 

-- GOTO p 

n .... (seguito) 

Utilizzando solo le strutture fin qui proposte, si ottiene 
una programma?ione Basic molto chiara. Naturalmente non si 
devono usare- le GOTO in modo diverso da come sopire mostrato. 

Paradossalmente, le istruzioni di strutturazione del 
P’ascel che risultano un aggiunta alla progremmez i one 
strutturata sono forse piu' facili da simulare: esse infatti 
corrispondono alle "sopravvivenze" dei linguaggi non 
strutturaii. 

- GOTO... e’ le contropartita del GOTO del Pascal. 

-- il ciclo FOR..END e' direttamente effettuato dal 

F0R..NEXT del Basic, me si hanno le seguenti differenze: 

.1- Il POR del Basic e' effettuato almeno una volta, 
qualunque sia le partenze, mentre in Pescai se il limite di 
partenza e’ superiore al limite di arrivo, la sequenza non 
viene effettuate. 

.2-- Il POR del BASIC non he bisogno delle parola chiave 
DOWNTO se il passo e' negativo. 

.3- Il POR del Basic: non he bisogno che l'indice 
corrente sia intero. Da questo punto di vista esso e' piu' 
piotante del Pesca;! (una delle rare occasioni !). In F'ascal 
non si hanno possibilità' di STEP. 


ESERCIZIO A.l. - Realizzare qualcosa per X~l, arrivando a 
X :: =3 con passo 0.5 (si scrive in Basic POR X = 1 TO 3 STEP’ 
0.5 ). Ottenerlo i ri Pescai diversamente che con X:=X + 0.5. 
Pensate ai tipi. 


La struttura CASE del Pascal he un corrispondente in 
Basic, ma ben piu' restrittivo, ON ... GOTO oppure ON... 
60SUB. 

Per esempio: 5 ON K GOTO 10,20,50,60 
10 (istr. se K=1):G0T0 70 
20 (istr. se K=2):G0T0 70 
50 (istr. se K=3):G0TQ 70 
60 (istr. se k=4) 

70 . 
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corrispond* in Pascsi 3 : CASE K OF 

1 : < i str. se- K=1 ) ; 

2 : < i str. se- K -2) ; 

3 s ( i str . se- K=3 )} 

A : < i str . se- K = 4> ; 

ENDj (fine- delle deviazione) 

ma, in Pascal, i valori di K non hanno bisogno di essere 
degli interi consecutivi e K può' essere- di un tipo speciale 
definito dal programmatore. 

I SOTTOPROGRAMMI 

Uno dei principali imperativi della programmazione 
strutturata e' quello di suddividere i programmi in piccoli 
moduli. Pascal lo permette grazie elle FUNCTION e alle 
PROCEDURE. 

II Basic possiede una forma molto ridotta di FUNCTION, le 
funzioni definibili con DEF FN. La funzione si deve ridurre 
e una linea (quindi essa non può’ contenere dei test), il 
suo nome deve essere FN seguito da una lettera e quindi non 
può' avere significato mnemonico. 

Il Basic permette i sottoprogramm i chiamati con GQSIJB. Si 
he qualche deficienza rispetto alle PROCEDURE Pascal, me 
l'essenziale c'e'. 


Le restrizione essenziale, a nostro avviso, del punto di 
vista dell’ottenimento di programmi parlanti, e' che il. 
Basic non permette di richiamare un sottoprogramma con un 
nome, ma si deve scrivere GOSUB ad un numero di linea. II. 
solo modo di compensare questo fatto e’ quello di inserire 
appropriati commenti. Esempio: 

100 GOSUB 1000:REM INVERSIONE MATRICE 

1000 REM ROUTINE INVERSIONE MATRICE 

Le altre restrizioni sono: 

-- la non esistenza di variabili locali (vedere paregr. 
6. A . ) , ma questo può’ essere superato con un po’ di 
attenzione quando si programmai 

- l'impossibilita' di usare degli argomenti. Questo e' un 
pio’ piu’ sp i ac evol e. Per esempio, se noi supponiamo che le 
routine 1000 sìa scritta per invertire una matrice A, per 
poter usare le stesse routine per invertire una matrice B, 
questa deve essere trasferita in A prima di fare GOSUB 1000. 
In Pascei basta scrivere INVERSI ONE ( B ) o, in Fortran CALI. 
INV(B) . 
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Se riassuMiamo quanto precede, vediamo che in definitiva, 
dal punto di vista delle istruzioni, e' possibile fare della 
programmazione ben strutturata in Basic ed anche in Fortran. 
Perche' allora si dice che il Basic non e’ un lingueggio 
strutturato? 

E’ abbastanza triste doverlo dire, ma sembra che questo 
dipenda da una sorta di tradizione nella presentazione dei 
programmi. Le tradizione vuole che si presentino i programmi 
Basic <o Fortran) con dei commenti sparpagliati, senza alcun 
tentativo di impeginezione, mentre le tradizione (iniziata, 
bisogna riconoscer lo, dopo la programmazione strutturata) 
vuole che i programmi Pescai siano ben presentati. 
Estendiamo questa tradizione al Basic. 


COMMENTI 

Il Basic possiede una istruzione che permette di mettere 
dove si vuole dei commenti in un programma, e' l'istruzione 
PEPI. Non evitiamo di usarla. 

Noi possiamo avere: 

- un commento che occupa un’intera linea, per esempio come 
titolo di un soltoprogramma: 

1000 REM SOTTOPROGRAMMA Di ORDINAMENTO 

- una linea tutta di asterischi o di altri caratteri 
grafici per inquadrare: 

-• un breve commento alla fine di una linea: 

100 istruzioni : REM spiegazioni 
(notate che non si può' scrivere: 

100 REM spiegazioni : istruzioni 

infatti la maggior parte dei Basic non analizza per 
eseguire quello che viene dopo REM). 


La sola limitazione e’ che con i Basic interpretativi i 
commenti occupano spazio in memoria. Lo stesso inconveniente 
si presenta riguardo ed una buone impaginazione. Nondimeno, 
bisogna notare che le configurazioni di Personal ora 
disponibili, soprattutto per i problemi gestionali, offrono 
quantità' di memoria abbastanza rilevanti (16 o 32 K) grazie 
alla diminuzione dei costi della stessa. Questa tendenza non 
fara' che accentuarsi e permetterà' di poter usare piu' 
memorie a vantaggio delle leggibilità’ dei programmi. Non 
esitate quindi a mettere dei commenti ed a curare 
1 ’impeginezione. In primo luogo, conviene utilizzare una 
scrittura con tutti gli spazi separatori necessari. 
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I PIPACI NAZIONE 


L'abitudine di eli incera e destre tutte le istruzioni 
Basic non e' assolutamente imposte del linguaggio. 

Niente impedisce di se: e 1 ere le istruzioni e questo 
permette di mettere in evidenze dei livelli di al lineamento 
che sono reppresentetivi delle logica del programma. 

Problema: Con l'interprete Basic che io uso, tutti gli 
spazi che lese io eli'inizio delle linee (tre il numero di 
linea e la prima parola) spariscono. Ouindi io non posso 
fere el1ineamenti. • 

Questo e’ in realta' il comportamento delle maggior perle 
degli interpreti Basic. Bisogna quindi ricorrere a qualche 
trucco. Con gli interpretetori della Microsoft baste 
iniziare la linea con cosi': 


10: A-A+l 

Questa regola vele anche per il CBP1 8032. 

Per una conveniente impaginazione si potranno utilizzare 
gli allineamenti che seguono. 

Istruzione 

IF condizione THEN 

istruzione seguente 

Un margine leggermente spostato verso destre ve rispettato 
per le istruzioni in normale sequenza. Le PEPI e le IF si 
spostano leggermente verso sinistre. Esempio: 

100 KEPI CALCOLO 
110 : A=5 

120 IF A<B THEN X=2 
130 : Y=0 


1000 IF N0T condizione THEN GOTO 1100 
1005 PEPI 

1010 PEPI SI condizione 

1020 : A=3 

1030 : B--8 

1040 : GOTO 1200 

1050 PEPI 

1100 PEPI NO condizione 
1110 : C~12 

1120 REM 
1200 . 

Si vede come, con uri gioco di scalamenti, delle REM non 
seguite da parole, viene messa in luce la struttura logica 
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del programma. 

Ovvi emerite le strutture possono essere concatenate e 
questo implics degli scslsmenti supplementari per i livelli 
piu’ interni; ne vediemo un esempio per i cicli ripetitivi. 

1000 : 8 = 0 s 1=0 

1010 REM RIPETERE 
1020 : : 1 = 1+1 

1030 : : S=S+A(I) 

1040 : IF N0T I>=10.GOTO 1010 

1050 . 

la ripetizione speziete dei nelle linee 1020 e 1030 

rende piu' visibile il ciclo. 

Per quanto riguarda il F0R..NEXT velgono gli stessi 
principi; il FUR e il NEXT sono allineati tra loro mentre- 
tutte le istruzioni fondamentali del ciclo vengono spostate 
verso destra. 

Noi pensiamo che gli esempi precedenti siano sufficienti 
per comprendere le regole ds applicare per l’impaginazione. 
Non ci sono regole assolute, me ognuno si comporterà’ come 
crede si fine di rendere leggibile il programma. 

ESERCIZIO A.2. - Traducete in Basic: strutturato il programma 
dell'esercizio 1.5., utilizzando un F0R per il ciclo piu' 
i nterno. 


Quanto visto mostre che e’ possibile imitare il Pescai con 
dei linguaggi non strutturati. Questo non Impedisce al 
Pascal di essere il linguaggio con il quale la 
programmazione strutturata si realizza piu' naturalmente, e 
non gli toglie le altre specifiche quelita' che abbiamo 
analizzato in questo libro. 
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APPENDICE B 


L.E! PAROLE CHIAVE: DEL PASCAL 


CARATTERI DI BASE 


Peg. 


A ■ ■ ■ Z 3 . . . Z 

0. . . 9 

+ ~ * / 


AND OR NOT o < l V A ) 

- ? (o <> ) < > <•- > = 

< ) C 3 ( . . ) ) 

** 0 { } I 


■ > ! • 

8 o + 


Lsttsrs ... 

Cifre- . 

Addizione, sottrazione, 
moltiplicazione, divisione 

reale . 

Operatori logici . 

Operatori relazionali . 

Parentes i .. 

Indicatori di commenti . 

Simbolo di assegnazione .... 

Apostrofo . 

Punteggisture .. 

Indicatore di puntatore .... 


22 
0 3 


A. A. 

?'P 

31 


PAROLE CHIAME DEL LINGUAGGIO 

Le parole che seguono sono riservate , cioè’ non si 
possono usare come indicatori. 


AND (e) . 

F* e g 

.... 4 i 

ARRAY (tabelle) _ 

.... Al 


BEGIN < inizio) . 15 


CONST (costante) ... 

.... 17 

DIV (diviso) . 

.... 32 

DO (fai) . 


DOWNTO (diminuito) 

.... A9 

FISE (se no) . 

.... A3 

END (fine) . 


FILE (file) . 

.... 107 

FOR (per) . 

■ • a a A fi 

FUNCTION (funzione) 

a a a a 86 

GOTO (vai e) . 


IF (se) . 


IN (nel) . 

.... 78 

LABEI (etichetta) .. 


NOD (modulo) . 

.... 32 


Pag 


NIL (niente) . 130 

NOT (no) . Al 

0P (di) . 5.1 

OR (o) . Al 

PACKED (impaccato) .... 68 

PROCEDURE (procedura) . 87 

PROGRAN (programma) ... 38 

RECORD (struttura) _ 72 

REPEAT (ripeti) . A6 

SET < i ns i eme ) . 75 

THEN (allora) . A3 

TO'(fino a) . A8 

TYPE (tipo) . 17 

UNTIL. (fino a che) .... A A 

VALUE (valore)* . 153 

MAR (variabile) . 18 

UH ILE (mentre) . A A 

WITH (con) . 73 


*) VALUE non e’ considerata parola chiave in tutte le 
realizzazioni del Pascal. Al contrario, quasi tutte le nuove 
implementazion i ammettono FORUARD (piu’ avanti - pag.xxx) 
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come parola chiava, permettendo di rimandare a dopo la 
definizione di una procedura. 


INDICATORI STANDARD 

Questa parte contiene i nomi di funzioni, procedure, tipi 
e costanti standard del sistema. Quelle contrassegnate da un 
+ sono particolari di alcuni compilatori e rischiano di non 
essere definiti nel Pascal di cui voi disponete. Questi 
indicatori possono essere ridefiniti da voi nel vostro 
programma per l'uso che piu' vi conviene. 

COSTANTI 

Pag, 


FALSE <falso> . 40 

TRUE (vero) . 40 

MAXINT + (il piu' grande intero) . 40 

TIPI 

INTEGER (intero) . 39 

REAL (reale) . 40 

B00L.EAN (boolesno) . 40 

CHAR (carattere) . 40 

TEXT (file di testo) . 113 

ALFA + ( alf anumer i co) ... 40 


FILE STANDARD DEL. SISTEMA 


INPUT (ingresso dati) 

OUTPUT (uscita dati) . 


110 

110 


FUNZIONI 


ABS 

SQR 


ODD 

TRUNC 

ROUND 

SUCC 

PRED 

ORD 

CHR 

SIN 


COS 


(valore assoluto -• reale va in reale, 

intero va in intero) .. 

(quadrato -- reale ve in reale, intero 

va i n i ntero ) .... 

(pari -• intero ve in hooleano) . 

(parte intera con troncamento - reale va 

in intero) . 

+ (arrotondato - reale va in intero) . 

(sue c essivo) ... 

(precedente) . 

(ordinale) .. 

(carattere di cui si da' l'ordinale) .... 
(seno -■ angolo in radianti reale o intero 

va in intero) . 

(coseno angolo in radianti reale o 
intero va in intero) . 


37 

37 

41 

37 

37 

40 

40 

40 

40 

36 

36 
























ARCTAN <arcotangente - risultato in radianti) .. 36 

EXP (esponenziale) . 36 

LN (logaritmo neperiano) . 36 

SQRT (radice quadrata) . 36 

EOF (fine file - bool. TRUE se END OF FILE) . 41 

EOLN (fine linea - bool. TRUE se fine linea) . 41 


PROCEDURE 


PUT 

GET 

RESET 

REWRITF. 

READ 

READLN 

URITE 

WRITELN 

NEW 

DISPOSE + 
MARK + 
RELEASE + 
PACK 
IJNPACK 
PAGE + 
DATE + 
TIME + 
HALT + 


(scrive su file) . 

(legge da file) . 

(rimette a inizio file) ... 

(riscrive ) .. 

(lettura) . 

(lettura linea) ........... 

(scrittura) . 

(scrittura linea) . 

(allocazione puntator i ) ... 
(liberazione picurtst.or'i > ... 

(marcatura puntatori) . 

(liberazione puntatori) ... 
(impaccamento tabelle) .... 
(disimpaccamento tabelle) . 

(va a nuova pagina) . 

(fornisce la data GG/MM/AA) 

(ora) . 

(arresta il programma) .... 


109 

109 

109 

108 

26 

27 

28 
29 

128 

129 

129 

129 

68 

68 

31 

155 

155 

155 


ESTENSIONI UCS'D 
TIPI 


STRING Stringa di caratteri 

PROCEDURE 


INSERÌ 

DELETE 

CONCAI 

COPY 


Inserzione in una stringa 
Cancellazione da una stringa 
Concatenazione eli stringhe 
Accesso ad una parte di stringa 


PROCEDURE DI ENTRATA E USCITA 


BLOCKREAD Lettura di un blocco 
BLOCKWRITE Scritture eli un blocco 
SEEK Accesso diretto su disco 

60T0XY Invio del cursore in una determinata posizione 

sul video. 
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FUNZIONI 


SIZEOF Numero di byte assegnati e une variabile 

I0RESULT Siato risultante da una opterà:: i one di ingresso 
o useite. 


ESTENSIONI CBN 
CARATTERI 


$ 

# 


Introduce una costante esadecimele 

Sottolineatura (SHIFT e $) e' ammesso negli 

identific atori 

Inclusione di un pezzo di testo sorgente 


FUNZIONI 

F'EEK 

Letture dalle memorie 

GETKEY 

Accettazione di un carattere da 

FUNZIONI 

BINARIE 

ANDB 

AND logico 

ORB 

OR 

XORB 

OR esclusivo 

NOTB 

Contrer i o 

SUL 

Spostamento a sinistra 

SHR 

Spostamento e destre 

IOERROR 

Errore di entrata/uscita 

RANDQM 

Numero e ceso 

HOURS 

Ore 

ClINUTES 

M i nut i 

SECONDS 

Secondi 

PROCEDURE 

POKE 

Scritture in memorie 

ORIGIN 

Fissa l'origine delle variabili 

VDU 

Scrittura el video 

WRHEX 

Scrittura esadecimale 

WRHEX2 

Il il 

RDHEX 

Lettura esadecimale 

IOTRAF' 

Autorizza o inibisce i messaggi 

BREAKS 

Attiva o inibisce il tasto STOP 

SETTIME 

Aggiorna l’orologio 

CHAIN 

Carica e chiama un programma in 


tastiera 


dinamiche 


di errore 


overlay. 
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APPENDICE C 


DU e: 


R IE A I- 


V- I O N T. 


D ET. L_ F* ASC A L_ 


IL PASCAL UCSD 

Le prime versione del Pesce! e' stete realizzate e Zurigo 
de N. WIRTH} noi le chiameremo Pesce! Zurich. Esse si 
presente sotto forme di compi latore verso un lingueggio 
intermedio, che e' un Pescai semplificato chiamato 
lingueggio P. 

Il compi letore e’ eriche scritto in lingueggio P. Per 
ottenere un Pascal su una qualunque macchina tasta scrivere 
un interpretatore del lingueggio P sulle specifica macchine. 

Il Pascal Zurich ha dato luogo a reaiizzazioni orientate 
in prevalenze verso i grossi celcoletori: CDC. Univec, Iris 
80 . 


Alcuni ricercatori del 1’Universite’ di Celi forni e di Sen 
Diego hanno creato un'altra versione del Pascal, piu' 
orientate vc-rso i m i n i cel c oletor i e i Microprocessori, le 
versione UCSD. 

Come le versione precedente, esse si presente sotto forme 
di compilatore verso il linguaggio intermedio P, che dopo 
teste interpretere. 

Il lingueggio P UCSD essomiglie piu' del Zurich ed un 
linguaggio macchina e quindi risulta piu' facile da 
interpretere su un microprocessore. 

Come abbiamo segnalato nel Cap. 9, esiste un 

microprocessore, il Pesce! fiicroengine delle Western 
Digital, nel quale il linguaggio macchina e' il linguaggio 
P-UCSD. Esso e’ costruito con l’aiuto di 5 circuiti 

integrati: un operatore aritmetico, un controllare delle 
m i c r o i struz i on i e 3 memorie ROfl. 

Passiamo ora a descrivere le principali differenze tra il 
Pesce! UCSD e il Pescai Zurich. 


RESTRIZIONI DEL PASCAL UCSD 
Si hanno 3 restrizioni: 

- (fastidioso per 1’appiicezione del paregr. 6.6.) mence 
la possibilità' di usare come argomenti FUNCTION o 
PROCEDURE 
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- (corrisponde di fatto all'estensione delle dichiarazioni 
delle unita’) non si dichiarano i file utilizzati nelle 
testata PROGRAM, cosa che noi abbiamo sempre fatto; 

- non esistono le procedure PACK, UNPACK e DISPOSE. 


ESTENSIONI DEL PASCAL UCSD 

Le estensioni del Pascal UCSD riguardano soprattutto i 
file (accesso diretto e file interattivi) e le stringhe di 
caratteri. 

Noi non citiamo qui che i punti piu’ importanti che 
definiscono le possibilità’ supplementari apportate dalle 
«•stensioni. Per i dettegli piu’ specifici il lettore 
leggera’ il manuale del sistema che usa. 


PROCEDURE E FUNZIONI CHE AGISCONO SUI FILE 

Oltre alle procedure classiche che abbiamo visto (READ, 
GET , ecc . ), si ha: 

UNI T P.USY ( numero-un i ta ' ) (Booleeno): fornisce il valore TRUE 
se l’unita' specificata e’ occupata. Sulla maggior parte dei 
sistemi e notoriamente sul Microengine i numeri standard 
delle unita' sono: 

1 : console (tastiera scrivente con eco del carattere) 

2 : sistema (tastiera scrivente senza eco del carattere) 
-4: disco sistema 
6 : stampante. 

UNITCLEAR (numero-unita’): annulla tutte le operazioni 
sull’unita’ specificata. 

IJNITREAD (numero-unita’, tabella, lunghezza, numero-blocco, 
asine). E' la routine di lettura di base. Si leggono i byte 
dati de 'lunghezza’ in 'tabella' dall’unita’ indicata, 
cominciando dal blocco indicato (indirizzo assoluto sul 
disco). Se asineli il trasf er i mento e’ asincrono; se esinr. = 0 
esso e' sincrono. 

UNIT WRITE (numero-unite', tabella,lunghezza, numero-blocco, 
asine). E’ la routine di scrittura di base e usa gli stessi 
parametri della precedente di letture. 

UNITWAIT (numero-unita’) : attende che il trasferimento in 
corso sull'unita’ indicata sia terminato. 
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FILE SENZA TIPO 


Le d i eh i araz i one VAR FILE : FILE} e’ legale. Essa 


definisce un file 

senza specificare 

un tipo; 

3 

questo f i le 

si accede con le 

funzioni 

BLOCKREAD 

e BLOCKWRITE 

• 

BLOCKREAD (FILE, 
numero-blocco). 

TABELLA, 

numero 

blocchi i 

da 

trasferire. 

BLOCKWRITE (FILE, 
numero-blocco) . 

TABELLA, 

numero 

blocchi i 

da 

trasferire, 


Il valore fornito delle funzione e’ il numero di blocchi 
effettivamente trasferito. TABELLA e' uns tabelle che 
contiene le informazioni che devono essere trasferite. 
Numero-blocco e’ l'indirizzo assoluto del blocco da cui 
iniziare il tresferimento. 

I0RESUL.T e’ una funzione che fornisce il valore 0 se il 
trasferimento e' andato a buon fine, il numero dell'errore 
nel caso contrario. 


FILE INTERATTIVI 

Le dichiarazione: VAR FILE : INTERACTIVE,- definisce FILE 
come un file interattivo. 

Il comportamento e' lo stesso che per il tipo TEXT salvo 
che RESET riferito ad un file interattivo fa riposizionare 
all’inizio del file senza domandare dati (vedere peragr. 

7.6.) . 

Analogamente READ(F,X) equivale a SET (F); X:-F j per un 
file interattivo (si ha una inversione). 

Il file standard INPUT e’ INTERACTIVE, altrimenti, dato 
che si ha per esso un RESET automatico all'inizio del 
programma, si avrebbe subito una richiesta di dati 
fastidiosa per l’operatore. 


ACCESSO DIRETTO 

Oltre a UNI TRE AD, UNI TUR ITE , BLOCKRE AD e BL.OCKWRITE che 
procurano un accesso diretto assoluto, si dispone di SEEK 
che procura un eccesso diretto 'relativo' in un file. E’ 
piu' prudente usare l'accesso relativo, dato che esso 
verifica che l'operazione avvenga nell’ambito del file 
desiderato. Oli accessi assoluti non hanno alcun tipo di 
ver i f i c a . 


SEEK (FIL.E,N) ha per effetto che il prossimo SET o PUT 
avviene sulla registrazione N. La prima registrazione nel 
file viene riferita con N”0. Tra due SEEK ci vuole almeno 
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una operazione GET o F'UT 


STRINGHE DI CARATTERI 

VAR X : STRING; definisce X come stringa di caratteri di 
lunghezza fissa ad ogni assegnazione: 

X ; = 'BUONGIORNO' 


La lunghezza massima e', se non dichiarata, di SO 
caratteri, da si può' superare questo massimo con una 
dic hiarezione: 

MAR Y : STRING CnD f dove n<=255. 

Le stringhe di caratteri possono ricevere una 
assegnazione, si possono confrontare tra loro e possono 
essere lette o scritte. Se si cerca di leggere una stringa 
quando EOLN e’ TRUE, si ottiene la stringa nulla (vuota). 

FUNZIONI OPERANTI SULLE STRINGHE 

CONCAT <X,Y,..,Z): produce una stringe che e’ la 

concatenazione delle stringhe argomento. 

COPY (STRINGA, INIZIO, N): produce una stringa formata da N 
caratteri prelevati da STRINGA a partire dalla posizione 
INIZIO. 

LENGHT (STRINGA): fornisce le lunghezza (INTEGER) di 

STRINGA. 

POS (MOTIVO, STRINGA): fornisce le posizione della prima 
occorrenza di MOTIVO in STRINGA, 0 se non trova MOTIVO. 

DELETE (STRINGA, INIZIO, N): sopprime N caratteri di STRINGA 
a partire dalla posizione INIZIO. 

INSERT (MOTIVO, STRINGA, INIZIO): inserisce MOTIVO in 

STRINGA a partire dalla posizione INIZIO. 

Altre procedure agiscono su PACKED ARRAY OF CHAR. Esse 
sono: SCAL, FILLCHAR, MOVELEFT e MOVERIGHT. Non entriamo nei 
dettagli perche’ la loro azione dipende dal sistema 
considerato. 

SIZEOF (nome di variabile o di tipo): fornisce il numero di 
byte dedicati a quella variabile o al tipo. 
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VARIE 


Alcuni Pescai UCSD hanno degli 'interi lunghi’ dichisrsti 
come segue: 

VAR L : INTEGER CnDj dove n e’ il numero di cifre decimali 
desiderato. Noi desidereremmo di poter avere l’analogo per i 
numeri resii. 

Gli interi lunghi possono, in linea di principio, sppsrire 
dovunque possono apparire gli interi, ma non come argomenti 
di procedure, sslvo che in STR e TRUNC. 

La procedura STR <L,S) converte l'intero, o l'intero lungo 
L, nella strings di caratteri S. 

EXIT: questa istruzione permette, in caso di errore, di 
useire da una procedura. 

CASE: nel Pascal standard se il valore selezionato non 
corrisponde ad alcuno dei valori per i quali e' stato 
definito un appropriato trattamento, si ha errore. In UCSD, 
si passa alla istruzione seguente, senza segnalazione di 
errore, e questo può’ essere un difetto. 


IL PASCAL CBH 


Il Pascal del CEFI e’ un Pascal Zurich e di questo possiede 
tutte le caratteristiche, segnatamente la procedura DISPOSE. 
F.sso accette come argomenti di procedure nomi di procedure o 
di file. 

Esso possiede qualche estensione propria, e qualche 
estensione che va nella direzione dell'UCSD. La sua 
procedura READ accetta di leggere un PACKED ARRAY I. D OF 
CHAR; per questo e’ facile dotarlo di procedure per la 
gestione di stringhe di caratteri. 

Esso funziona in due modi: residente, con il compilatore 
in memoria e allora un programma può’ essere editato ed 
eseguito consecutivamente, e su disco. In quest'ultimo caso 
si deve editare un programma, salvare il testo sorgente (con 
PUT), poi compilarlo (comando COMP) e eseguirlo (comando 
EX). Il comando GET richiama il testo sorgente dalle memoria 
per le correzioni. 


L’editor accetta tutte le istruzioni Basic in 
piu' UPPER e LOWER che fanno passare, da 
minuscole, AUTO (numerazione automatica), HEX e 
operano le conversioni esadecimale-deeimale, 
compila un programma e lo rende eseguibile 
Basic, LINK che permette la fusione di piu' 
compilati separatamente. 


modo diretto 
maiuscole a 
DECI MAL che 
LOCATE che- 
in ambiente 
file-oggetto 
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ESTENSIONE DEL LINGUAGGIO 


Il CBN ammette identificatori parlanti (mnemonici) come 
PREZZO~MEDIO, dove '-' e' il carattere ottenuto con SHIf-'T e 
%. Il CBN accetta costanti espresse in esadecimale, 
introdotte con $, come $FFOO. 


FILE E BUS IEEE 

Le procedure RESET <F) e REWRITE (F) sono studiate per 
ammettere le seguenti forme: 

RESET o REWRITE (F,'nome’> aprono in letture o scrittura un 
file permanente su disco, assegnandogli il nome indicato. 

RESET o REWRITE ( F , NF‘, AS , ’ nome ' ) aprono un file sulle 
periferiche IEEE NF’, con l'indirizzo secondario AS e i l nome 
eventualmente indicato. 

Per esempio dopo un REWRITE (OUTPUT, A, 0), tutte le stampe 
effettuate con WRITELN vanno sulla stampante. 

REWRITE (F,8,15,'cornando’) manda tutti i comandi voluti sul 
disco, fornendo un mezzo per fare l'accesso diretto. 


LINGUAGGIO MACCHINA 

Anche- se questo e’ contrario allo spirito del linguaggio, 
il Pascal del CBM permette di richiamare una procedura in 
linguaggio macchina che inizia all’indirizzo esadecimale 
xxxx. Basta dichiararla come: PROCEDURE NOME; EXTERN 

Si dispone di funzioni o procedure PEEK (F'EEK(X) -• 
contenuto della locazione di memoria X), GETKEY:CHAR (GETKEY 
= carattere premuto sulla tastiera e ri spone cori CHR(O) se 
non viene premuto alcun tasto; WHILE GETKEY = CHR(O) DO; 
crea un attese fino a quando viene premuto un tasto), 0RI6IN 
(da evitare, fissa l'origine delle variabili dinamiche) e 
MDU (L,C,X) (scrive il carattere X alla linee L. e alle 
colonna C del video). 


FUNZIONI BINARIE 

di funzioni effettuano delle operazioni 
di 16 bit: ANDB (X,Y) = X Y, ORB (X,Y) = 
X Y, NOTB (X) = X negato,SHL (X,n) = X 
sinistra, SHR = spostamento a destra. 


Un certo numero 
binarie su interi 
X Y, XORB(X,Y) = 
sposta di n bit a 
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PROCEDURE DI ENTRATA E USCITA 


WRHEX e WRHEX2 scrivono in esadecimale. RDHEX legge- in 
esadecimale. IOTRAP <FALSE) inibisce i Messaggi di 
entrata/uscita, IOTRAP <TRUE) li attiva. IOERROR e' il 
numero dell'errore di entrata/uscita riscontrato (0=nessun 
errore). P.REAKS (TRUE) attiva e BREAKS (FALSE) disattiva il 
tasto STOP. 


ORA E NUMERI A CASO 

La procedura SETTIME (H,M,S) predispone l’ora, i Minuti ed 
i secondi. Le funzioni HOURS, MINUTES e SECONDS danno l’ora. 
RANDOM e’ un numero e ceso compreso tre 0 e 255. Esempio: 
RANDOM + (RANDOM MOD 128)*256 e’ un numero a caso compreso 
tra 0 e 32767. 


OVERLAY 

Scrivendo: Hnome-file, viene incluso nel testo sorgente 
Pascal il contenuto del file nome-file. 

CHAIN (nome-file) fa caricare ed eseguire in overlay, 
cioè' andando a sostituire al programma eh i amante in memor i a 
il programma oggetto contenuto nel file indicato. 




APPENDICE D 


e» o i uzion :i; i> e: g l. x e-: e> et r o x z: i 


Nota: Non potendo usare le parentesi graffe, i commenti sono 
inseriti nei programmi delimitandoli con asterischi. 


ESERCIZIO 1.1. 




ESERCIZIO 1.2. 

Fino a quando non si e’ alla fine del file leggere la 
registrazione e stamparla, oppure: ripetere lettura 
registrazione, stampa fino alle fine del file. 


ESERCIZIO 1.3. 

I « l t 

r i p e t e r e s t a m p a r e I j I = I +1 fino a q u e n d o I > 1 0 


0 u i si d e v o n o far- v e d e r e espi i c i t a m e n t e 
relative all'indice corrente I (cose che e’ 
il POR del Basic e il DO del Fortran), cosa 
fastidiosa per i principianti. 


le operazioni 
automatica con 
che e' spesso 
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ESERCIZIO 1.4 




Il diagramma s blocchi 
riportato ( 3 ) presenta un ciclo 
del quale si può’ uscire senza 
passare dalla condizione di 
arresto. Esso dunque non e’ 
strutturato. Il diag r starna a 
blocchi (b) invece e’ 

strutturato. Esso usa una 
variabile in piu’ e questo e’ 
normale. Il rango K dove e' 
stato trovato un A non e' lo 
stesso del rango I 

dell’elemento corrente in 
esame. Se si hanno piu’ A nella 
tabelle, K conterrà’ il rango 
dell'ultimo. Questo non e’ 
quello che e’ richiesto del 
testo. Viene richiesto di 

fermarsi quando si trova il 
primo A (quindi KOO). Da ciò' 
il diagramma a blocchi (c). 

Il programma si scriverà’: 

K = 0 

1 = 1 

Ripetere 

se C(I)=’A' allora K=I 

1 = 1 + 1 

fino a quando I>50 o KOO 

A ciascuno stadio (passaggio da 
(a) a (b> o da (b> a (c)), la 
programmazione strutturata ci 
ha obbligato ad analizzare 
meglio il nostro problema: 

- stabilire che ci vogliono due 
variabili distinte K e Ij 

- trovare la giuste condizione 
di arresto. 
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ESERCIZIO 1.5. 



programma principale 


SCAMBIO 



sottoprogramma 

scambili 


rea ******************************************************* 

REM * ORDINAMENTO ALFABETICO * 

REM * N TABELLA DI 50 NOMI DA ORDINARE * 

REM * ECH INDICATORE DI SCAMBIO * 

REM * 1,1+1 INDICI DELLE COPPIE DA CONFRONTARE * 

REM * SOTTOPROGRAMMA CHIAMATO ! SCAMBIO * 

REM ******************************************************* 
REM * 

REM ** CICLO PER I PASSAGGI 
RIPETERE ECH = 0 
I =1 

REM ** UN PASSAGGIO 

RIPETERE SE N<I)>N<I +1> 

REM SE NON IN ORDINE 

ALLORA PARTENZA ECH = 1 

CHIAMARE SCAMBIO 

FINE 

I = 1 + 1 ; REM VA ALLA COPPIA SEG. 

FINO A I>49 ;REM FINE PASSAGGIO 

FINO A ECH = 0 -, REM FINE DEL CICLO PASSAGGI 

REM * 

REM ******************************************************** 

REM * SOTTOPROGRAMMA SCAMBIO ELEMENTI * 

REM * POSIZIONE I E 1+1 DELLA TABELLA N * 

REM * X VARIABILE DI COMODO * 

REM ******************************************************** 
REM * 

SOTTOPROGRAMMA SCAMBIO 
X N< I ) 

N(I) N(H1 ) 

N < I +1 ) X 

RITORNO 
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ESERCIZIO 2.1 


TXTriTXT.'TTTTZTXTTTJ.'ITTTrTSTTS'TXXSTXTTSSSTKSSSSSTKKS f:X X T. T. W 

* ORDINAMENTO ALFABETICO * 

* N TABELLA DI 50 NOMI DA ORDINARE * 

* ECH INDICATORE DI SCAMBIO * 

* I, 1+1 INDICI DELLE COPPIE DA CONFRONTARE * 

* PROCEDURA CHIAMATA: SCAMBIO * 

******************** * «SS****************************** * 


PROGRAMMA ORDINAMENTO 


CONST NB = 50; sminerò nomi* 

TYPE STRINGA ■- ARRAY C1..203 OF CHAR; 
VAR ECH,I :INTEGER; 

N : ARRAY C1..NB1 OF CHAIN; 

BEGIN * ini zio ordinamento* 

REPEAT sciclo dei passaggi* 

ECH := 0; 

I : = 1 ; 

REPEAT *un passaggio* 


IF Ni: 13 > N CI + 13 


*se non in ordine* 


THEN BEO IN 


ECH := 1; 
SCAMBIO 


I := 1+1 
UNTIL. I >49 
UNTIL ECH=0 
END. 


END; 

scoppia seguente* 
sfine di un passaggio* 
*f'ine ciclo dei passaggi* 
sfine programma* 


s ****** 


PROCEDURA SCAMBIO 
DEGLI ELEMENTI DI POSIZIONE I 
X VARIABILE DI COMODO 


E 1 + 1 


PROCEDURE SCAMBIO 
VAR X : STRINGA; 

BE GIN 

X : = N Eli; 

N m := N E1 + 13; 

N CI + 13 X 

END; «fine scambio* 


Le stesura precedente e', di fatto, non corretta in un 
solo punto (abbiamo voluto seguire lo schema dell'esercizio 
1.5.). Bisognerebbe che la procedure (tutto quello compreso 
nel tratteggio) venisse posta prima del BEGIN che inizia 
l’ordinamento. Infatti le procedure devono essere definite 
prima della prima istruzione eseguibile. Inoltre il 
programma, come riportato, e' sprovvisto di entrata e uscita 
dat i . 
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ESERCIZIO 3.1 


A :=1 Bj = 2 C:=4 D:=5 E;=6 


ESERCIZIO 3.2. 

READ < A f B, C , D ) ; 

READLNf 

READ <E,F,6,H>; 

oppure READLN <A,B,C,D>; 

READ (E f F,6 ,H); 


ESERCIZIO 3.3. 

123123 

/ 

ESERCIZIO 3.4. 

URITELN < ’ L. A SOMMA DI’,A,’E’,B,'RISULTA’,A+B)j 


ESERCIZIO 3.5. 

Incrementare (aumentare eli 1) il valore di X. 


ESERCIZIO 3.6. 

No! Non si può’ avere piu’ di una variabile e sinistra del 
segno :=, e non una espressione aritmetica. A+B non può’ 
essere un identificatore di variabile dato che e’ presente 
il segno +. 


ESERCIZIO 3.7. 

X - X DIO Y*Y 


ESERCIZIO 3.8. 

Nessuno degli identificatori utilizzati e’ molto 
mnemonico. ALBERTA e’ dichiarata due volte. SOTTO e’ 
dichiarata due volte. 1RIMAVAR non e’ corrette perche’ 
inizia con una cifra. ENRICO-HUARTO contiene un carattere 
speciale. 
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ESERCIZIO 3.9 


TRUNC(I/J) 


ESERCIZIO 3.10. 

7. : =EXP ( Y*LN ( X ) ) ; 

E’ del tutto uguale e quello che succede in BASIC con; 
Z=X elevato Y, o in Fortran con: Z=X**Y. 


ESERCIZIO 3.11. 

XI : = < --B+SQRT ( SOR ( B ) -4*A*C) ) / ( 2*A ) 

Il primo segno, e' quello chiamato 'meno urtar io'. Agisce 
solo sul termine che lo segue. Deve essere all'inizio di una 
espressione; A*-B non e' corretto e si deve scrivere A*(-B). 
Si raccomanda di usare le parentesi per evitare ambiguità'. 


ESERCIZIO 3.12. 

PROGRAM RAGGIOCERCHI0; 

CONST P1=3.14159265; 

VAR RAGGIO,S:REAL; 

BEGIN 

READ < S ) ; 

RAGGIO :=SGRT <S/PI); 

WRITEL.N! ' RAGGIO = ’,RAGGIO) 
END. 


ESERCIZIO 3.13. 

Unica istruzione un po' nuova: 

V :=4/3*PI*R*SGR(R) 


PROGRAM CILINDRO; 

CONST PI = 3.14159265; 

VAR R, H, V : REAL. ; 

BEGIN 

WRITEL.N (’ RAGGIO ALTEZZA'); 

READ (R,H); 

V: = PI*SQR < R)*H; 

WRITEL.N ('VOLUME CILINDRO DI RAGGIO ’,R, 
'E ALTEZZA ',H,' = ',V) 

END. 
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ESERCIZIO 3.15 


PROGRAM PROVA; 

BEGIN 

WRITELN ('MASSIMO INTERO' f MAXINT) 
END. 


Fonogramma senza dichiarazioni. 


ESERCIZIO 3.16. 


IF (C>=’0’> AND < C<= ' 9 ’ ) THEN... 


ESERCIZIO 3.17. 


IF I MOD J = 0 THEN 


ESERCIZIO 6.1. 


IF X>0 THEN Y!-X ; 

ELSE Y:=-X; 


ESERCIZIO 6.2. 


PROGRAM EOUAG1 ; «equazione pirimo grado AX+B=0* 

VAR A,B: REAL ; «coefficienti* 

X : RE AL. ; «incognita» 

BEGIN 

READ <A,B); 

IF AOO THEN BEGIN 

X;--B/A; 

WRITELN ('RADICE: ’,X) 

END; 

ELSE IF B=0 THEN 

WRITELN (’ INDETERMINATA ’) 
ELSE 

WRITELN (’ IMPOSSIBILE ') 

END. 
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ESERCIZIO 4.3 


IF e 


13; 


THEN IF b THEN II 
ELSE 


ELSE 12; 


oppure- IF e THEN BEGIN 

IF b THEN II 

END 
ELSE 12; 

13; 


ESERCIZIO 4.4. 

PROGRAM MEDIA; 

DAR S,N : REAL; 

CONT :INTEGER; 

BEGIN 

S:=0 ; CONT“0 ; 

WHILE NOT EOF DO 

BEGIN READLN(N); 

S: -S+N; 

CONT := CONT +1 

END; 

WRITELN (’ MEDIA S/CONT) 

END. 


ESERCIZIO 4.5. 

PROGRAM MAXEMIN; 

VAR MIN,MAX,N:REAL; 

BEGIN 

MIN ;= 1.0E20; 

MAX := 0; 

UMILE NOT EOF DO 

BEGIN READLN<N); 

IF N<MIN THEN MIN:=N 
IF N>MAX THEN MAX:=N 

END; 

WRITELN (’MIN. = ’,MIN,’ MASS. = ’,MAX) 
END. 


ESERCIZIO 4.6. 

PROGRAM SENO; 

CONST PI = 3.14159265; 
VAR X, X2 :INTEGER; 

Y,Y2:REAL; 
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BEGIN 

PAGE; 

WRITELN < I-SIN--X-—II- -X--I-SIN-X-1 7 ) ; 

WRITELN < 7 -'); 


FOR X :=0 TO 45 DO 
BEGIN 

X2;=X+46; 

Y :=SIN<PI*X/180); 

Y2:=SIN<PI*X2/180); 

WRITELN! 7 1 7 , X : 3, 7 I’,Y:9:5, 7 II',X2:3, 7 II 7 

,,Y2:9:3, 7 I 7 ) 

END; 

WRITELN <’ - 

END. 


ESERCIZIO 4.7. 

CASE c OF 

TRUE: il; 
FALSE:i2; 

END; 


ESERCIZIO 4.8. 

PROGRAM CONTAVOCALI; 

DAR CrCHAR; «caratteri esaminati* 

NBVOCALI,NBCONSON:INTEGER; 

BEGIN 

NBVOCAL I :=0 ; 

NBCONSON :-0; 

PAGE ; 

REPEAT 

READ(C);WRITE(C); 

IF < C= 7 A 7 )0R(C= 7 E 7 )OR(C= 7 1 7 )OR(C= 7 0 7 )OR(C= 7 U 7 ) 

THEN NBVOCALI := NBVOCAl.I + 1 
ELSE BEGIN 

IF CO 7 7 THEN NBCONSON := NBCONSON + 1 
END 

UNTIL C= 7 
WRITELN;WRITELN; 

WRITE < 7 CI SONO 7 .NBVOCALI, 7 VOCALI E 7 >; 

WRITELN < NBCONSON-1, 7 CONSONANTI 7 ); 

END. 

Domanda: quali modifiche sarebbero necessarie se si usasse 
WHILE al posto di REPEAT? 

-La modifica piu 7 vistosa sarebbe di dover mettere una 
lettura supplementare prima di WHILE. Infatti il controlla 
si fa su C e C deve essere letto, anche se esso resta nel 
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ciclo come lettura corrente, relativa all ' i teraz i one 
suc c essive. 

READ(C)j 
UH ILE CO'.’ DO 
BEGIN 
READ(C) 

END; 

Questa struttura e’ piu' conforme elle regole di gestione 
dei file che comportano una lettura iniziale prima del ciclo 
ed una lettura corrente dentro il ciclo. Notate anche che 
nella prima versione si e' scritto NBCQNS0N--1 per ovviare al 
fatto che ere stato contato il punto come consonante. Con 
UH ILE questo non succede. 


ESERCIZIO 4.9. 

PROGRAM EQ2D; 

VAR A,B,C :REAL; «coefficienti* 

DELTA :REAL; «discriminante* 

RE, IP1 : REAL. ; 

BEGIN 

READ(A,B,C)j 

IF (A=0) AND ! B=0) 

THEN URITELN <’ EQUAZIONE DEGENERE’) 

ELSE 
IF A = 0 

THEN URITELN !' RADICE SEMPLICE ’,-C/B) 

ELSE 
IF C--0 

THEN URI TELN(’ LE RADICI SONO ’,-B/A,’E 0.0’) 
ELSE 
BEGIN 

RE : "-~B/( 2*A) 5 
DELTA: = B*B-4*A*C ; 

IM:-SQRT! ABS(DELTA))/< 2*A); 

IF DELTA >0 

THEN WRITELN !’ LE RADICI SONO ’, 

RE+IM,' E ',R E-1M) 

ELSE IF DELTA=0 

THEN URITELN!’ RADICE DOPPIA’,RE) 
ELSE URITELN!' RADICI COMPLESSE', 
RE , ’ + I’,IM,’ E ’,RE,’-1’,IM) 

END ; 

END. 
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ESERCCIZIO 5.1 


FALSE 

E’ necessarie le diehiarezione: VAR D,M : GIORNO* 
e naturalmente la definizione del tipo GIORNO come visto 
prima. 


ESERCIZIO 5.2. 

TYF’F. LETTERA = ’ A’ . . ’Z’ ; 

CIFRA = ’0'..'9’; 

Attenzione: in elcune realizzazioni del Pascei si ha che 
'A’<'B’<’C'...,ma i loro codici non sono consecutivi. In 
tali casi il tipo LETTERA può’ contenere degli intrusi. Il 
problema non si pone per le cifre che sono sicuramente 
rappresentate da codici consecutivi. 


ESERCIZIO 5.3. 

CONST INDICEP1AX - 50* «per esempio* 

TYPE TABELLA = ARRAY C1..INDICEMAX3 OF RE AL; 
VAR TAB : TABELLA; 


Un elemento per scheda e un elemento per linea. 


ESERCIZIO 5.A. 

IN IT:»-4; 

FOR SCHEDA 1 TO 10 DO 
BEGIN 

INIT := INIT+5; 

FOR I := IN IT TO INIT+4 DO 
BEGIN 

READ (TAB E13 ) 

END; 

RE ADIN 
END; 

INIT:= -9; 

PAGE; 

FOR LINEA := 1 TO 5 DO 
BEGIN 

I NIT := INIT + 10; 

FOR I := INIT TO INIT+9 DO 
BEGIN 

WRITE (TAB 113 : 10 : 4) 
END; 

WRITEL.N 

END; 
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ESERCIZIO 5.5 


CONST NF'l = 11 ; *l+delle dimensioni* 

X = 7 k 7 - 
TYF'E DICI = 1..NP1} 

PAROLA = ARRAY CDIFIII OF CHAR -, 

VAR TAB s PAROLA} 

IT : INTEGER} 

BEGIN 

FOR I T s “ 1 TO NF'l - 1 DO 

BEGIN READ (TAB CITI ) END; 

TAB CNF'l 3 :- X} 

IT:=0} 

REF'EAT 

IT : = IT +1 

UNTIL TAB CITI = X ; 

END. 

e il ciclo contiene un solo controllo per UNTCL. Dopo, e 
seconda del valore di IT si sa se X era o meno presente. Non 
si e' mostrate le stampe dei risulteti (sere’ le stessa 
dell'esempio precedente). 


ESERCIZIO 5.6. 


CONST N=20} 

VAR MAX,I :INTEGER} 

TAB : ARRAY CI..NI OF INTEGER} 


MAX :=0} 

FOR I = 1 TO N DO 
BEGIN 

IF TAB LI.1 > MAX THEN MAX := TAB CID 
END} 

WRll ELN < FI AX ) } 


ESERCIZIO 5.7. 

Metodo bolle : 62 comparazioni, 22 scambi} 
metodo Shell : 36 comparazioni, 9 scambi. 

Se il numero degli elementi e' notevole con il metodo Shell 
si guadagna in velocita’. 





ESERCIZIO 5.8 


A:=PA non e' corretto cisto che le due tabelle non sono dello 
stesso tipo; PA e’ pscked mentre A non lo e'. 


ESERCIZIO 5.9. 

L'esercizio e’ gis' svolto nel testo. 


ESERCIZIO 5.10. 

PROGRAM TRANSPOSTA ; 

CONST N = 10; 

TYPE MATRICE « ARRAY Cl..N f l..N3 0F RE AL.; 
DAR A : MATRICE; 

X : REAL; *per lo scambio* 

I, J ; 1. . N ; 

BEGIN 

FOR I :=2 T0 N DO 

FOR J:-1 TO 1-1 DO 
BEGIN 

X:-A CI,J3; 

A EI,J3 := A CJ,I3; 

A t: J, I 3 := X 

END 

END. 


ESERCIZIO 5.lì. 


TYPE ORDINE = RECORD 

ARTICOLO : PACKED ARRAY CI..203 OF CHAR; 
PO : REAL; 

GUANI : INTEGER; 

IMPORTO : REAL 
END ; 


ESERCIZIO 5.12. 


WITH IMPIEGATO 
IF STAFAM-'M' 

END; 


DO 

THEN 

WR1TELN(’DAT AMATR'.DATA) 
ELSE 

WRITELN('NON SPOSATO’) 


17? 



ESERCIZIO 5.13 


URITELN<'DATA MATRIMONIO’,IMPIEGATO,DATAMATR,MM> 
OPPURE: 

WITH IMPIEGATO,DATAMATR DO 
_WRITELN MS) 


ESERCIZIO 5.14. 

TYPE COLORE = < BLEU,pi ANCO,ROSSO,Gl ALLO,VERDE,NERO) 
STOFFE = SET OF COLORE} 

STOFFA : STOFFE} 


ESERCIZIO 5.15 

E3 vale- EB1,B2,B3,B43 oppure EB1..B43 


ESERCIZIO 5.16. 

E3 vale CP2,B3,B43 

B3 e' contato una sola volta 


ESERCIZIO 5.17. 

<E1 <= E2> AND (E1 <> E2) 


ESERCIZIO 6.1. 

FUNCTION POT < Y ,X:REAL. ) : REAL } 
BEGIN 

POT := EXP < X*LN(Y ) ) 

END} 


ESERCIZIO 6.2. 


PROGRAM ISTOGRAMMA} 

VAR EFFETT : ARRAY II..103 OF 1..100} 
I,K : INTEGER} 

PROCEDURE TRACCIA. 


END} *la procedure che abbiamo scritto* 

BEGIN 

FOR K 1 TO 10 DO 

TRACCIA EFFETT CK3)} 

END. 
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La traccia ottenuta ha la forma: 
*** 

******** 

****** 

**** 

** 


ESERCIZIO 6.3. 

La modifica di N <o quella di K) avrebbe agito sul programma 
chiamante e avremmo avuto la stampa di: 

120 

cento asterischi 
100 

e 1 

'? 


ESERCIZIO 6.6. 


PROGRAM ISTOGRAMMA; 

VAR EFFETT : ARRAY II..101 OF 1..100; 
I : INTEGER; 

PROCEDURE TRACCIA (C:CHAR;N:INTEGER); 
CONST MAX = 100; 

VAR I : INTEGER; 

BEGIN 

IF N>MAX THEN N:=MAX; 

FOR I := 1 TO N DO 
URITE < C); 

WRITELN 

END; 

BEGIN 

FOR I := 1 TO 10 DO 

TRACCIA EFFETT Eli); 

END. 


ESERCIZIO 6.5. 


PROGRAM MOLTMAT; 

CONST N=10; «dimensioni metrici* 

TYPE MATRICE - ARRAY C 1 . .N, .1. .NI 01- REAL; 
VAR A, B,C : MATRICE; 

PROCEDURE LETMAT (VAR A:MAIRI CE); 

VAR I,J : INTEGER; 

BEGIN 

FOR I != 1 TO N DO 
BEGIN 
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FOR J := 1 TO N DO 
READ <A E I,J] ) ; 

READLN 

END 

END ; 

PROCEDURE F'RODMA (A,B:MATRICE ; MAR CsMATRICE); 

VAR I f J,K :INTEGER; 

BEO IN 

FOR I := 1 TO N DO 
BEGIN 

FOR J := 1 TO N DO 
BEGIN 

C CI,JD := O.O; 

FOR K : 1 TO N DO 

C C I, J II := CCI, JT+ACI,K3*BEK, JD; 

END 

END 

END; 

PROCEDURE STAMPA (A:MATRICE); 

VAR I,J ; INTEGER; 

BEGIN 

POR I :== 1 TO N DO 
BEGIN 

FOR J := 1 TO N DO 

URITE- (ACI, J3sS»2); 

URI TELN 

END 

END; 

BEGIN 

L.ETMAT (A) ; 

LETMAT(B); 

F'RODMAT < A , B, C ) ; 

PAGE ; 

WRITELN ('RISULTATO ’); WRITELN; 

STAMPA(C) 

END. 


Le cestente' N e il tipo MATRICE sono globel i : conosciuti 
in tutti i programmi. Le matrici A,8,C definite in MOLTMAT 
sono conosciute in MOLTMAT. Sono altre versioni quelle 
conosciute nelle procedure. Le variabili I,J,K sono locali 
nelle loro procedure. Notate che qui si ovvie alla mancanza 
di dimensioni variabili del Pascal, per cambiarle basta 
cambiare il valore di N (ricompilando naturalmente). 


ESERCIZIO 6 . 6 . 

PROGRAM CALCINTEG; 

CONST PI ™ 3.14159265; 
MAR N ; INTEGER; 

S : REAl.; 


ISO 



PROCEDURE INTEG. 

END ; 

BEGIN 
N : =5 j 
REPEAT 

INTEG (SIN,S,O.O,PI,N); 
WRITELN (' N= ' ,N, ' S= ',S>; 
N: =N+5 
UNT.IL N>25 
END. 


ESERCIZIO 6.7. 

Eseguito nel testo. 


ESERCIZIO 6.8. 

Per INIT risulte ferite: N e' l'altezza delle torre, de 
cui POR I:=l TO 10 del ciclo di stampe diventa FOR I:=ll-N 
TO 10 DO. 

Per MOVIMENTO e’ piu’ difficile deto che N e’ locale e 
TOGLIERE e non rappresenta l'altezza totale. E' meglio 
introdurre una variabile globale ALTEZZA definita nel 
programma principale HANOI (VAR ALTEZZA : INTEGER ; ), 
calcolata in INIT come ALTEZZA :N per cui il ciclo 
diventa : 

FOR I := 11-ALTEZZA TO 10 DO. 


ESERCIZIO 6.9. 


PROGRAM AL.EAT; 

FUNCTION RAND(R:INTEGER): REAL ;FORWARB; 
PROCEDURE CHIAMA; 

VAR X,I :INTEGER; 

BEGIN 
Xs=100; 

POR Is =1 TO 100 DO 

WRITELN (RAND(X ) ); 

END; 

FUNCTION RAND; 

CONST MODULO » 65536; 

MOLI -• 25173; 

INC == 13869; 

BEGIN 

RAND : --R/65535 ; 

R: = (MOLT*R +1NC) MOD MODULO 
END; 

BEGIN 

CHIAMA 
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END 


Questo programma e’ stelo provato su une 
tratte interi di 32 bit. 


•tacchina che 


ESERCIZIO 6.10. 

PROGRAM CURVASENOj 

CONST PI = 3.16159265} 

FtJNCTION F(XsREAL) : REAL} 

BEGIN 

F :- 50+69*SIN(X) 

END} 

PROCEDURE CURDA (FUNCTION F : REAL } A, B: REAL. )} 
DAR X, H s REAL} 

I,Y :INTEGER} 

BEGIN 

H:=(B-A)/59} 

PAGE} 

X : = A} 

FOR I s -• 1 TO 60 DO 
BEGIN 

Y:=TRUNC (F(X))} 

WRITELN (' ' : Y, '*"si)} 

X:=X+H 

END 

END} 

BEGIN «programma principale* 

CURVA<F,0.0,2*PI ) 

END. 


ESERCIZIO 7.1. 

PROGRAM LISTAREAL <FILE 1,OUTPUT)} 
VAR FILE1 :FILE OF REAL,- 
NUMERO : REAL} 

BEGIN 

RESET <FILE1 ) } 

REPEAT 

READ (FILE 1,NUMERO)} 
WRITELN <NUMERO) 

UNTIL EOF (FILE1 ) 

END. 


Si vede come i file utilizzati sono dichiarati 
nell'istruzione PROGRAM} nella stessa e' dichiarato il file 
standard di OUTPUT. 

In alcune versioni del Pascal non e’ necessario dichiarare i 
file standard, in altre non si devono dichiarare. 
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ESERCIZIO 7.2. 


PROGRAM F'IUF'I (FILE1 ) ; 

CONST PI = 3.14159265; 
VAR F ILEI:F1LE OF REAL; 
BEGIN 

RESET (FILE1); 

REPEAT 

GET < FI LE 1) 

UNTIL EOF (FILE 1); 
URITE (FILEl.PI) 

END. 


ESERCIZIO 7.3. 

PROGRAM AGGIORNA(INF'UT, VECCHIO, NUOVO) ; 

TYPE STRINGIO = F'ACKED ARRAY C1..19J OF CHAR; 
STRING30 = F'ACKED ARRAY 11..303 OF CHAR ; 
PERSONA = RECORD 

NUM :INTEGER; 

COGNOME,NOME :STRING10; 

INDIR : STRING30; 

ASS :INTEGER; 

MANSIONE : STRING10 ; 

LIVELLO :INTEGER 

END; 

SCHEDA = RECORD 

CASE COD ! CHAR OF 

'L' : (NO : INTEGER); 
'A’,'M' : (AGGIU:F'ERSONA) ; 
END; 

VAR VECCHIO,NUOVO ;FILE OF PERSONA; 
IMPIEGATO ; PERSONA; 

MOV : SCHEDA; 

MOVNUM : INTEGER; 

M s BOOLEAN; 

BEGIN 

RESET (VECCHIO); REWRITE (NUOVO); 

READ (VECCHIO,IMPIEGATO) ; 

READ (MOV); 

IF MOV.COD = ’L" THEN MOVNUM :*MOV.NO 

ELSE MOVNUM :=MOV.AGGIU.NUM; 

REPEAT 

M := FALSE; 

IF MQVNUM>IMPIEGATO.NUM 
THEN BEGIN 

URITE (NUOVO,IMPIEGATO); 

READ (VECCHIO,IMPIEGATO) 

END; 
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UNTIL EOF 


END. 


ELSE CASE MOV.COD OF 

'L' : READ (VECCHIO,IMPIEGATO); 

'A' : BEGIN 

WRITE(NUOVO,MOV.AGGIU) } 

M ; — TRUE 
END j 

'M' : BEGIN 

WRITE(NUOVO,MOV.AGGIU); 
READ(VECCHIO,IMPIEGATO); 

M: - TRUE 
END ; 

IF M THEN BEGIN 
READ(MOV) ; 

IF MOV.COD = 'L’ THEN MOVNUM:“MOV.NO 
ELSE 

MOVNUM:= MOV.AGGIU.NUM 

END 

squeste condiziont Leste tenuto conto delle 
ipotesi seiiipl i f i cet i ve fette* 


Si dovrebbe eggiungere il seguente controllo di errore 
verificere che se MOVNUM<IMPIEGATO.NUM e quindi: 
se ’M’ o ’L’ eli ore MOVNUM * IMPIEGATO.num. 


ESERCIZIO 7.4. 


PROGRAM FATTURAj 

TYPE STRINO 10 -• PACHED ARRAY 11. . 103 OF CHAR; 
STRING20 * PACKED ARRAY C1..30.T OF CHAR; 
SCHEDA a RECORD 

CASE COD : CHAR OF 

’C' : (NOME:STRINO30; 

INDIR:STRING30); 

'B' : (QT:INTEGER; 

ART:STRING30; 

PXU: REAL) 

END; 

VAR COM : SCHEDA; 

0 : INTEGER,- 

ARTI: STRINO30; 

PU, IMP,TOT : REAL ; 

BEGIN 
PAGE ; 

READ(COM); 

WRI TEL.N < COM. NOME ) ; 

WRITELN(COM.INDIR); 

TOT:=0.0; 

REPEAT 

READ(COM); 

IF COM.COD = ' 
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THEN BEGIN 

WITH COPI DO 
BEGIN 

0 : = QT ; ARTI : = ART ; F'U : =F‘XU 
END; 

Inp : =F'U*G ; 

TOT:=TOT+inP; 

WRITELN<0:5,ART 1,35,’A’,PU: 10: 2,IttP: 15: 2) 
END; 

ELSE BEGIN 

WRITELN<’ ’: 50,'TOTALE’,TOT:15:2); 

PAGE; 

WRI TEL.N < C0C1. NOnE ) ; 

URITELN<CON.INDIR) ; 

TOT:=0.0 
END 

UNTIL EOF; 

WRITELN <’ ’:50,'TOTALE’,T0T:15:2> 

END. 

Per questo esercizio e il precedente riguardare nots del 
paragrafo 7.9.. 


ESERCIZIO 7.5. 


PROGRAN COPY; 

VAR C : CHAR; 

BEGIN 

WHILE NOT EOF DO 
BEGIN 

WHILE NOT EDEN DO 
BEGIN 

READ(C); 

WRITE(C) 

END; «fine linee* 

READLN; 

WRITELN *si passe alla linee seguente-* 

END 

END. 


ESERCIZIO 7.6. 


PROGRAN FREGLETT; 

DAR X :CHAR; 

F'REO : ARRAY E ' A ’ . . ’ Z ’ 3 OF INTF.GER ; 
LETT: SET OF 'A’..'Z'; 

BEGIN 

LETT:= E'A’..’Z’3 ; 

FOR X := 'A' TO 'Z' DO FREQ EX3:=0; 
WHILE NOT EOF DO 
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BEGIN 

WHILE NOT EOLN DO 
BEGIN 

READ< X)j 

IF X IN LETT THEN FREQEX3 s =FREQEX3 + 1 ; 
END f 
READLN 

END 

END. 

PROGRAM FREGCOPF'IE ; 

VAR X, Y : CHARf 

F COPPIE : ARRAYC’A’..’Z’ f ’A'.. ’Z’ 3 OF INTEGERj 
LETT : SET OF 'A' . . ’Z’ -, 

BEGIN 

LETT := L ’ A’ . . ’Z’ 3 -, 

FOR X : - 'A' TO ’Z’ DO 
BEGIN 

FOR Y:=’A' TO DO FCOPPIEtX,Y3:=0} 

END -, 

READ(X ) j 

UMILE NOT EOF DO 
BEGIN 

UMILE NOT EOLN DO 
BEGIN 

READ(Y ) ; 

IF(X IN LETT) AND <Y IN LETT) 

THEN BEGIN 

FCOPPIE C X,Y 3 :=FCOPPIE C X,Y3 +1 f 

X s = Y 

END 

END; 

READLN 

END 

END. 


ESERCIZIO 8.1. 



ESERCIZIO 8.2. 
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ESERCIZIO 8.3 


PROGRAM HAN0I2; 

VAR NF',IP,JP : ARRAY CI..503 OF INTEGERj 
P : INTEGERj «puntatore- de-lla pila» 

N, I, J s INTEGERj 

PROCEDURE TOGLIj 
B E GIN 

N: = NPLP3 jl : = IPCP3 j J:=JF'IPD j 
IF N=1 THEN WRITELN < I, " =>'” , J> 

ELSE BEGIN 

P:=P+1j 

NF'C F' 3 : = N-1 j IPCF'3: = Ij 
JF'CP 3 : =6-1-J j 
TOGLIj 

Ps=P+l -, 

NP C P 3 : = 1 j IF' C F' 3 : = I j J P L P 3 : = J j 
TOGLIj 

F':=P + 1 j 

NF'CP3 : = N-1 -, IPCP3 : =6-1--J ? JPCP3 s = J j 
TOGLI 
END j 

Ps=P-l ; Ns=NPCP3jI: = IPCP3 j,Js = JPCP3 
END j 
BEGIN 

READ<N)j 

F': = 1 j NF't F'3 : = N j IF'CF'3 : = 1 j JF'CF'3 : = 2 j 
TOGLI 
END. 

E in Basic: 

IO DIPI NP<50> , IP(50) , JF'(50) 

20 INPUT "NUFI. DISCHI " -, N 
30 P=1:NP(P)=N:IP(P)=1:JP(P)=2 
40 GOSUB 100 
50 END 

100 N=NP(P):I=IP(P)sJ=JP(P) 

110 IF N=1 THEN PRINT I -, " = " -, JsGOTO 200 
1 20 F'=P+1 : NP < P ) =N-1:1P < P ) =1 : JP < P > = A-1 - J 
130 GOSUB 100 

14 0 P=P+1 :N P< P) = 1:1P< P) = I :J P(P)=J 
150 GOSUB 100 

1 60 F'=F'+1 : NP < P > =N-1:1P < P > =6-1 - J : JP < P > = J 
170 GOSUB 100 

200 P=P-1sN=NP<P):I=IP<P>:J=JP(P) 

2:10 RETURN 
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ESERCIZIO 8.4 


Mettere: VIDE :=FALSE; 

FILACP23:=ELEMENTO; 

IF (F'2>F'l ) AND <P2=MAX) 

THEN P2:=l 
ELSE F'2: =F‘2+1 ; 

IF P2=P1 THEN PIENO:=TRUE; 
Togliere: PIENO:=FAL.SE -, 

ELEMENT0:=FILACF'13; 

IF P1=MAX THEN Pl: = l 

ELSE P1 : = P1 +1 ; 

IF P1=P2 THEN VUOTO : = TRUE 


*non si aggiungono 
elementi fino s 
quando PIENO reste 
vero* 

*non si tolgono ele= 
menti fino 3 quando 
VUOTO reste vero* 


ESERCIZIO 8.5. 

PROGRAM T0GLI5; 

*dichierezioni dell’esempio precedente* 
*continuazione dichiersz. VAR* 

I,PREC,P : INTEGER; 

BEGIN 

P: =F'RIMO; 

FOR I := 1 TO 5 DO 
BEGIN 

PREC ;=p- 

F':=MALIST AC P3. PUNTATORE 
END ; 

MAL I STACPREC3. PUNTATORE : =F' 

END; 


ESERCIZIO 8.6. 


PROCEDURE INSERÌ INFO,tipo voiuto,I : INTEGER); 
VAR K,PREC,P :INTEGER; 

PIENO :BOOLEAN; 

BEGIN 


F': - PRIMO; 

FOR K:=1 TO I DO 
BEGIN 
PREC :=P; 

P: = MALIST AC F'3. PUNTATORE 
END; 

MAL I STACPREC3 . PUNTATORE : = ; LI BERO; 
MAL I STACI. IBERO 3 .PUNTATORE : = F'; 

MAL ISTACLIBERO3.INFORMA : = INFO ; 
LIBERO:=LIBER0+1; 

IF LIBERO-MAX THEN PIENO:=TRUE; 
END; 



Le diehi3f3zioni che definiscono la lista sono 
programma chiamante, e questo rende le variabili globali 
procedura non deve essere chiamata se PIENO e' vero: 

IF NOT PIENO THEN IN8ER (INFO,5); «per esempio* 


ESERCIZIO 8.S 



10 11 


E 12 


LIBERO = 12 


ESERCIZIO 8.9. 

Ci limiti amo elle istruzioni essenziali. 


I : = lf 

UHI LE FAMIGLIACI!.NOMEO'GIANNI' DO I:=I+1; 

I :“FAMIOLIACI!.PADRE; 

WRITELN ('PADRE DI GIANNI: ’ , F AMI GL I AC 1.1. NOME ) * 


ESERCIZIO 8.10, 

PROGRAM LETTEISTA; 

.*dichiarazioni viste all'inizio del paragrafo* 

*<: ont. DAR* PREC : PTR; 

P.EGIN 

NEW (P); 

READ<P@.INFORMI ; 

PRIMO : ~P; 

PREC :“P; 

READ(X); 

UMILE NOT EOF DO 
lì E (3 IN 

NEW (P); 

PRECI*!.SEGUENTE : =P; 

PRE C:-P; 

Pi*. IN FORM 
READ(X) 

END; 

PREC@.SEGUENTE : “NI L 

END. 


nel 
. La 
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ESERCIZIO 8.11. 

Basta che- l’ultimo puntatore punti verso il primo 
elemento. Nell’esercizio 8.10. basta scrivere prima 
del l’ultima linee: 

PRECS.SEGUENTE := PRIMO 

Le lisita circolare può’ essere molto utile per trattare 
problemi di file di attesa, ne abbiamo già' parlato nel 
paragrafo 8.3.. Basta avere due puntatori esterni PRIMO e 
ULTIMO. PRIMO punta verso l'elemento di testa della fila di 
attese, quello da togliere per trattare un elemento. Ultimo 
punta verso il posto dove verrà' aggiunto un elemento che 
entrerà’ nella fila. 


ESSERCIZIQ 8.12. 

NEW (Q)j 

Q8.INFORM ’UJLU’} 

Ps“PRIMO j 

IF P@.INFORM = ’JOJO’ 

THEN PRIMO:=Q 
ELSE BEGIN 

WH1LE Pi*. INFORM <> ’JOJO’ DO 
BEGIN 

PREC :~P} 

P:=pi*. SEGUENTE 
END} 

PREC8 . SEGUENTE : - 0 
END} 

08.SEGUENTE:=P f 


ESERCIZIO 8.13. 

PROGRAM LISTINI 1 } 

TYPE PTR= 8ELEM} 

ELEM = RECORD 

INFO :TYPE} 
SEG,PREC sPTR 
END} 

DAR P,PREC, 

PRIMO,ULTIMO :P T R} 

BEGIN 

PRIMO®. PREC:=NIL.} 
P:--=PRIM08.SEG} 

PREC:=PRIMO} 

WHILE PONIL DO 
BEGIN 
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P@.PREC:=PREC; 
F’REC : =P j 
P:=P8.SEG 


END j 

ULTIMO:-PREC 


END. 


ESERCIZIO 8.14. 

FOR I : = 1 TO N DO 
BEO IN 

X : =PT r. 13 ; 

WRITELN(X@) 

END. 

Le fresi di scritture possono essere Modificate a seconda 
delle esigenze di impsginazione dei risultati. Una volta 
eseguito il programma, non si può’ ritrovere l’ordine 
iniziale. Per ottenere questo si sarebbe dovuta mantenere 
una copie della tabelle iniziale. Un altro modo per ottenere 
questo sarebbe quello di servirsi di puntatori memorizzati 
insieme egli altri dati. Questi puntatori, non venendo 
modificati, servirebbero per ricordare l’ordine iniziale. 


ESERCIZI) fi. 15. 

No: N+l, Infatti si he un NEW (X) che corrisponde alla 
lettura del fine file. 


ESERCIZIO A.1. 

Si potrebbe pensare di definire un nuovo tipo: 

TYPE MEZZOINTERO 'è < 1.0,1.5,2.0,2.5,3.0) 

VAR X : MEZZOINTERO 
FOR X := 1.0 TO 3.0 DO 

ma questo non può' funzionare con la maggior parte delle 
implementazioni del Pascal, infatti creerebbe delle costanti 
come 1.0 o 1.5 che apparterrebbero a; due tipi (mezzo intero e 
reale), e questo non e' consentito. 
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ESERCIZIO A.2 


1000 REM ****************************** 

1010 REM * ORDINAMENTO ALFABETICO * 

1020 REM * Ni TABELLA DI 50 NOMI * 

1030 REM * SCA INDICATORE DI SCAMBIO * 

1040 REM * 1,1+1 INDICI DELLA COPPIA * 

1050 REM * ESAMINATA * 

1060 REM * SOTTOPROGRAMMA SCAMBIO * 

1065 REM * IN 2000 * 

1070 REM ****************************** 

1080 REM 

1090 : DIM Ni(50) 

1100 REM RIPETIZIONE CICLO DEI PASSI 
1110 s s SCA=0 

1120 : : POR 1=1 TO 49 : REM UN PASSO 

1130 : : : IF Ni(I)<=NÌ(1+1) GOTO 1170 

1140 : : : REM SE NON VERO 

1150 : s : SCA=1 

1160 : : ! GOSIJB 2000 : REM SCAMBIO 

1170 : : NEXT I : REM FINE DI UN PASSO 

1180 ; IF SCA = 1 GOTO 1100 

1190 ! REM FINE DEL CICLO DEI PASSI 

1200 END : REM FINE PROGRAMMA PRINCIPALE 

2000 REM* 

2010 REM ******************************** 

2020 REM * SOTTOPROGRAMMA SCAMBIO * 

2030 REM * Xt VARIABILE DI COMODO * 

2040 REM * Nidi E Ni (.1 + 1) ELEMENTI T A B. * 

2050 REM ********************** * * * ** ** * * * 

2060 REM * 

2070 : Xi == Ni ( I ) 

2080 : Nili) r -NÌ ( I +1 ) 

2090 s Ni(1+1)=Xt 

2100 RETURN 


Potete 1 vedere che si he urie belle somiglianza con il 
Pesce!. Potete provare a scrivere lo stesso progredirne in 
Bes i c non struttur eto e vedrete che occupa dieno memori s. Le 
chiarezza di questa versione vale la spesa del maggior 
consudto di diemorie. Se volete provare il programma, dovrete 
aggiungere le istruzioni di ingresso e uscita. 
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APPENDICE E 


e X Et I.X O C3 Fi A F X A 


Oltre ai manuali che descrivono le i mplementaz i on i del 
Pascei sul vostro calcolatore, elle riviste specializzate 
che riportano diversi articoli sul Pascal, potete consultare 
i seguenti libri: 

In francese: 

N.WIRTH - Introduct i ori e’ le programmat i on systematique 
Masson 1977 


In inglese: 


B.U.LIFFICK Ed. - The byte hook of Pascal - Byte pubi. 1979 
P.GROGONO -- Programming in Pascal - Addison Uesley 1978 


I.R.UIISON, A. fi. ADDYMAN A practical i ntroduc t i on to Pascei 
- Springer 1978 

K. JENSEN, N.WIRTH - Pascal - User manual and rep>ort 
Springer 1975 


N.WIRTH - Algorithms + Date structures = Programs - Prentice 
Hall 1975 


Articoli: 

Segnaiiamo : 
c/o Computer 
University - 


"Pascal News", le riviste del Pascal User Group 
Studi es Group - Matheroatics Department -- The 
SOUTHAMPTON S09 5NH (Greet Bri te in),. 


In inglese: 

W.N.CONDICT: The Pascal dynamic: arrey controversy end a 
method for enforcing global assertions - ACM-S.TGPLAN 
12.11,23 (1977). 


R.CONRADI: Purther criticai comments on Pascal, particularly 
as a System programming language -- ACM-SIGPLAN 11.11,8 
(1976). 


E.W. DI JKSTRA: GOTO statement corisidered hermful - com. ACM 
11.3.167 (1968) (Atto di nascita della programmaiione 
strutturate !). 


A. N.HABERMANN: Criticai comments on thè programming language 
Pascal - ACTA INFORMATION 3.1.65 (1973). 
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E.N.KITTLITZ: Another proposai for variatile size array in 
Pascei •- ACM-SIGPL.AN 12.1,82 (1977). 

O.LECARME: Striletured «program» i ng, program» i ng teaching and 
thè language Pascal - ACM-SIGPLAN 9.7,15 (1974). 

O.LECARME, P. DESJARDINS: Reply io a pepar by A.N.HABERNANN 
on t hè prograwm i ng language Pascei - ACM-SIGPLAN 9.10,21 
( 1974) . 

O.LECARME, P. DES JARDINS : flore comments on thè programming 
language Pascal - ACTA INFORMATICA 4,231 (1975). 

H.F. L.EDGARD, M.MARCOTTY: A genesiogy of control structures - 
com. ACM 18.11,629 (1975). 

B.J.Mc LENNAN: Note ori dynamic erray in Pescai - ACM-SIGPLAN 
10.9,39 (1975). 

J.WELSH, W.J.SNEERINGER, C. A. R. FIDARE : Amb i gu i t i es and 

insecurities in Pascal - SOFTWARE PRACTICE AND EXPERIENCE •- 
7, 685 (1977). 

N.WIRTH: Design of a Pascal compilar - SOFTWARE PRACTICE AND 
EXPERIENCE - 1, 309 (1971) 

fìN.WIRTH: Commerit ori a note on dynamic errays in Pescai 
ACM-SIGPLAN 11.1,37 (1976). 

In francese: 

B. LANG: Le language Pascal - Serie di articoli in 
MICROSYSTEMES - 7,98 (1979); 10,91; 11,61 (1980). 

C. DISABEAU: Presentation de Pascal - L. ’ORDINATEUR INDIVIDUEL 
7,53 (1979). 

A.ALABAU, J.FIGUERAS, S.PINC0N: Pascal et les ordinateurs 
individuels - L'ORDINATEUR INDIVIDIJEL 13,60 (1979). 
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x n » > x c te c> e: x f- r o o r a n pi x 

Superficie di un cerchio. 39 

Calcolo del minimo e del massimo. 47, 172, 176 

Media. 47, 49, 172 

Numeri primi. DO 

Tavola della funzione seno. 50, 172 

Conteggio delle vocali di una parole. 53, 173 

Equazione di secondo grado. 53, 174 

Ricerca di una lettera in una parola.... 65, 176 

Ricerca di un elemento (metodo dicotomico). 66, 176 

Ordinamento (Shell). 67, 176 

Prodotto di matrici... 70, 94, 179 

Matrice trasposta . . . .. 71, 177 

Lettura d i un insi eme... 79 

Numeri primi con il crivello di Eretostene. 79 

Istogrammi.. 87, 178 

Letture di una matrice. 90 

Integrale di una funzione. 95, 180 

Fattoriale...... 96, 97 

Torre di- Hanoi..... 98, 181 

Numeri a caso. 105, 181 

Grafico di una curva. 106, 182 

Stampa di un file . 110, 182 
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Agg i ornamento. Ili, 183 

Fattura? i one. 112, 184 

Copia di un testo..... 114, 185 

Frequenza di lettere e di digrammi. 114, 185 

Uso della pila. 119 

Gestione della pila. 120, 187 

Creazione di una lista. 130, 131, 189 

Percorso in una liste... 131 

Cancellazione e inserzione. 131, 132 

Lista doppia... 132, 190 

Ordinamento con dati dinamici. 133, 191 
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